Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of type complex or real of arbitrary kind parameter. More...

Detailed Description

Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of type complex or real of arbitrary kind parameter.

See the documentation of pm_fftnr for more details.

Parameters

[in]

data

: The input contiguous vector of arbitrary size of,

type complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128),
type real of kind any supported by the processor (e.g., RK, RK32, RK64, or RK128),

containing the periodic sequence whose FFT is to be computed.

Returns: fft : The output vector of size getExpNext(size(data), 2) of the same type and kind as the input data, containing the FFT result.

Possible calling interfaces ⛓

: use pm_fftnr, only: getFFTF

type_of(data) :: fft(1 : getExpNext(size(data)))

fft(:) = getFFTF(data(:))

pm_fftnr::getFFTF
Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of...
Definition: pm_fftnr.F90:250

pm_fftnr
This module contains procedures and generic interfaces for computing the Discrete Fourier Transform o...
Definition: pm_fftnr.F90:184

Remarks: The procedures under discussion are impure.

Note: This functional generic interface is simply a more flexible but slower wrapper around the subroutine generic interface setFFTF.
As such, this functional interface can be significantly slower than the corresponding subroutine interface.

See also: getFFTF
getFFTR
getFFTI
setFFTF
setFFTR
setFFTI

Example usage ⛓

: 1program example

2

3 use pm_kind, only: SK, IK, LK

4 use pm_io, only: display_type

5 use pm_fftnr, only: getFFTF, getFFTI

6 use pm_distUnif, only: getUnifRand

7 use pm_mathCompare, only: isClose

8 use pm_err, only: setAsserted

9

10 implicit none

11

12 integer(IK) :: i

13 integer(IK) :: lenData

14 type(display_type) :: disp

15 disp = display_type(file = "main.out.F90")

16

17 do i = 1, 5

18 block

19 use pm_kind, only: TKC => CK32

20 real(TKC) :: reltol

21 complex(TKC), allocatable :: data(:), atad(:)

22 call disp%show("lenData = getUnifRand(5, 100)")

23 lenData = getUnifRand(5, 100)

24 call disp%show("lenData")

25 call disp%show( lenData )

26 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

27 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

28 call disp%show("data")

29 call disp%show( data )

30 call disp%skip()

31 call disp%show("atad = getFFTI(getFFTF(data))")

32 atad = getFFTI(getFFTF(data))

33 call disp%show("atad")

34 call disp%show( atad )

35 call disp%show("reltol = sqrt(epsilon(1._TKC))")

36 reltol = sqrt(epsilon(1._TKC))

37 call disp%show("reltol")

38 call disp%show( reltol )

39 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")

40 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )

41 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")

42 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

43 call disp%skip()

44 end block

45

46 block

47 use pm_kind, only: TKC => CK64

48 real(TKC) :: reltol

49 complex(TKC), allocatable :: data(:), atad(:)

50 call disp%show("lenData = getUnifRand(5, 100)")

51 lenData = getUnifRand(5, 100)

52 call disp%show("lenData")

53 call disp%show( lenData )

54 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

55 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

56 call disp%show("data")

57 call disp%show( data )

58 call disp%skip()

59 call disp%show("atad = getFFTI(getFFTF(data))")

60 atad = getFFTI(getFFTF(data))

61 call disp%show("atad")

62 call disp%show( atad )

63 call disp%show("reltol = sqrt(epsilon(1._TKC))")

64 reltol = sqrt(epsilon(1._TKC))

65 call disp%show("reltol")

66 call disp%show( reltol )

67 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")

68 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )

69 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")

70 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

71 call disp%skip()

72 end block

73

74 block

75 use pm_kind, only: TKC => CKH

76 real(TKC) :: reltol

77 complex(TKC), allocatable :: data(:), atad(:)

78 call disp%show("lenData = getUnifRand(5, 100)")

79 lenData = getUnifRand(5, 100)

80 call disp%show("lenData")

81 call disp%show( lenData )

82 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

83 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

84 call disp%show("data")

85 call disp%show( data )

86 call disp%skip()

87 call disp%show("atad = getFFTI(getFFTF(data))")

88 atad = getFFTI(getFFTF(data))

89 call disp%show("atad")

90 call disp%show( atad )

91 call disp%show("reltol = sqrt(epsilon(1._TKC))")

92 reltol = sqrt(epsilon(1._TKC))

93 call disp%show("reltol")

94 call disp%show( reltol )

95 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")

96 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )

97 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")

98 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

99 call disp%skip()

100 end block

101

102 block

103 use pm_kind, only: TKC => RK32

104 real(TKC) :: reltol

105 real(TKC), allocatable :: data(:), atad(:)

106 call disp%show("lenData = getUnifRand(5, 100)")

107 lenData = getUnifRand(5, 100)

108 call disp%show("lenData")

109 call disp%show( lenData )

110 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

111 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

112 call disp%show("data")

113 call disp%show( data )

114 call disp%skip()

115 call disp%show("atad = getFFTI(getFFTF(data))")

116 atad = getFFTI(getFFTF(data))

117 call disp%show("atad")

118 call disp%show( atad )

119 call disp%show("reltol = sqrt(epsilon(1._TKC))")

120 reltol = sqrt(epsilon(1._TKC))

121 call disp%show("reltol")

122 call disp%show( reltol )

123 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")

124 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )

125 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")

126 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

127 call disp%skip()

128 end block

129

130 block

131 use pm_kind, only: TKC => RK64

132 real(TKC) :: reltol

133 real(TKC), allocatable :: data(:), atad(:)

134 call disp%show("lenData = getUnifRand(5, 100)")

135 lenData = getUnifRand(5, 100)

136 call disp%show("lenData")

137 call disp%show( lenData )

138 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

139 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

140 call disp%show("data")

141 call disp%show( data )

142 call disp%skip()

143 call disp%show("atad = getFFTI(getFFTF(data))")

144 atad = getFFTI(getFFTF(data))

145 call disp%show("atad")

146 call disp%show( atad )

147 call disp%show("reltol = sqrt(epsilon(1._TKC))")

148 reltol = sqrt(epsilon(1._TKC))

149 call disp%show("reltol")

150 call disp%show( reltol )

151 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")

152 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )

153 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")

154 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

155 call disp%skip()

156 end block

157

158 block

159 use pm_kind, only: TKC => RKH

160 real(TKC) :: reltol

161 real(TKC), allocatable :: data(:), atad(:)

162 call disp%show("lenData = getUnifRand(5, 100)")

163 lenData = getUnifRand(5, 100)

164 call disp%show("lenData")

165 call disp%show( lenData )

166 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

167 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

168 call disp%show("data")

169 call disp%show( data )

170 call disp%skip()

171 call disp%show("atad = getFFTI(getFFTF(data))")

172 atad = getFFTI(getFFTF(data))

173 call disp%show("atad")

174 call disp%show( atad )

175 call disp%show("reltol = sqrt(epsilon(1._TKC))")

176 reltol = sqrt(epsilon(1._TKC))

177 call disp%show("reltol")

178 call disp%show( reltol )

179 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")

180 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )

181 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")

182 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

183 call disp%skip()

184 end block

185 end do

186

187end program example

pm_distUnif::getUnifRand
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Definition: pm_distUnif.F90:4106

pm_err::setAsserted
Verify the input assertion holds and if it does not, print the (optional) input message on stdout and...
Definition: pm_err.F90:735

pm_err::show
Generate and return an object of type stop_type with the user-specified input attributes.
Definition: pm_err.F90:1617

pm_fftnr::getFFTI
Generate and return the Inverse (normalized by 2 / size(data)) Fourier Transform of a periodic sequen...
Definition: pm_fftnr.F90:428

pm_io::skip
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11074

pm_mathCompare::isClose
Generate and return .true. if the two input values are sufficiently close to each other within the sp...
Definition: pm_mathCompare.F90:523

pm_distUnif
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distUnif.F90:274

pm_err
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52

pm_io
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252

pm_io::disp
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:10962

pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:28

pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:281

pm_kind::CKH
integer, parameter CKH
The scalar integer constant of intrinsic default kind, representing the highest-precision complex kin...
Definition: pm_kind.F90:477

pm_kind::RK32
integer, parameter RK32
The real kind for a 32-bits container.
Definition: pm_kind.F90:294

pm_kind::CK64
integer, parameter CK64
The complex kind for a 64-bits container.
Definition: pm_kind.F90:290

pm_kind::CK32
integer, parameter CK32
The complex kind for a 32-bits container.
Definition: pm_kind.F90:291

pm_kind::RK64
integer, parameter RK64
The real kind for a 64-bits container.
Definition: pm_kind.F90:293

pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:280

pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:279

pm_kind::RKH
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind a...
Definition: pm_kind.F90:462

pm_mathCompare
This module contains the procedures and interfaces for evaluating the relative or absolute proximity ...
Definition: pm_mathCompare.F90:205

pm_io::display_type
Generate and return an object of type display_type.
Definition: pm_io.F90:10228

Example Unix compile command via Intel ifort compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte_fortran_*_intel* -o main.exe

4./main.exe

Example Windows Batch compile command via Intel ifort compiler ⛓
1del main.exe

2set PATH=..\..\..\lib;%PATH%

3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte_fortran_*_intel*.lib /exe:main.exe

4main.exe

Example Unix / MinGW compile command via GNU gfortran compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte_fortran_*_gnu* -o main.exe

4./main.exe

Example output ⛓
1lenData = getUnifRand(5, 100)

2lenData

3+27

4data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

5data

6(+1.45636868, +0.186982274), (+1.80519700, +0.250547409), (+1.19375610, +0.337728202), (+1.52078176, +0.259225190), (+1.79688573, +0.122749805E-1), (+1.91022348, +0.422144651), (+1.98435736, +0.313435376), (+1.75199604, +0.290704608), (+1.20854282, +0.939087987), (+1.61715043, +0.841985822), (+1.80805945, +0.354320884), (+1.32047153, +0.982933521), (+1.94266224, +0.543568850), (+1.21806693, +0.834363699), (+1.57089376, +0.544746816), (+1.19321179, +0.601525724), (+1.01272357, +0.177541375), (+1.96421301, +0.531434476), (+1.62081242, +0.278863192), (+1.25695419, +0.153518975), (+1.26588798, +0.373395264), (+1.25246334, +0.673894525), (+1.34830856, +0.765698195), (+1.43898869, +0.629531562), (+1.72078013, +0.150414348), (+1.38806224, +0.530658960), (+1.42400479, +0.858977854)

7

8atad = getFFTI(getFFTF(data))

9atad

10(+1.45636857, +0.186982244), (+1.80519700, +0.250547409), (+1.19375598, +0.337728292), (+1.52078164, +0.259225130), (+1.79688549, +0.122749507E-1), (+1.91022325, +0.422144592), (+1.98435712, +0.313435435), (+1.75199580, +0.290704548), (+1.20854282, +0.939087987), (+1.61715043, +0.841985762), (+1.80805933, +0.354320884), (+1.32047129, +0.982933402), (+1.94266200, +0.543568850), (+1.21806693, +0.834363818), (+1.57089353, +0.544746757), (+1.19321156, +0.601525784), (+1.01272357, +0.177541316), (+1.96421313, +0.531434417), (+1.62081230, +0.278863162), (+1.25695407, +0.153518975), (+1.26588798, +0.373395145), (+1.25246334, +0.673894465), (+1.34830832, +0.765698075), (+1.43898845, +0.629531503), (+1.72078013, +0.150414318), (+1.38806236, +0.530659020), (+1.42400467, +0.858977795), (+0.00000000, +0.298023224E-7), (+0.00000000, -0.298023224E-7), (+0.596046448E-7, +0.894069672E-7), (+0.596046448E-7, +0.00000000), (+0.596046448E-7, +0.894069672E-7)

11reltol = sqrt(epsilon(1._TKC))

12reltol

13+0.345266977E-3

14isClose(data, atad(1:size(data)), reltol = reltol)

15T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

16call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

17

18lenData = getUnifRand(5, 100)

19lenData

20+7

21data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

22data

23(+1.8507799009094099, +0.92393841909865038), (+1.5398717063349845, +0.36500044205504778), (+1.7459548096564077, +0.79529899772823776), (+1.9545584169536743, +0.33945471952225181), (+1.7157410005550537, +0.72563679058829877), (+1.9611170415122721, +0.53572935987774173), (+1.6296013272886429, +0.96188551033782943)

24

25atad = getFFTI(getFFTF(data))

26atad

27(+1.8507799009094097, +0.92393841909865038), (+1.5398717063349847, +0.36500044205504795), (+1.7459548096564073, +0.79529899772823764), (+1.9545584169536743, +0.33945471952225165), (+1.7157410005550535, +0.72563679058829877), (+1.9611170415122718, +0.53572935987774151), (+1.6296013272886427, +0.96188551033782943), (+0.55511151231257827E-15, -0.55511151231257827E-16)

28reltol = sqrt(epsilon(1._TKC))

29reltol

30+0.14901161193847656E-7

31isClose(data, atad(1:size(data)), reltol = reltol)

32T, T, T, T, T, T, T

33call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

34

35lenData = getUnifRand(5, 100)

36lenData

37+15

38data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

39data

40(+1.67986982869487123416332131446352111, +0.196414092592931227069546254127615718), (+1.59220995167457720943835027025772902, +0.598417200276962574995710001374742882), (+1.91308994671823261995165254943046454, +0.207896509489680911543053103793403719), (+1.16801721004340955611014411525917613, +0.950535883917256862762460398697199590), (+1.23374221617992736626473336018767050, +0.307988262916941366243326107586072926E-1), (+1.24910168246479836922085633565059883, +0.765344289953377663550465856740647597), (+1.54709546491544405913318291101436465, +0.234109080393033670559892641741551880), (+1.50896096916134768925899445705299647, +0.825041359224795601672018046967013302), (+1.24278729628867828936310792297004828, +0.996877169661223064540798501511295166E-1), (+1.22727402540144855750451994352008787, +0.394422022433652635327042984364579741), (+1.68870673246558115821061862811956708, +0.736256222656001311219750860195329761), (+1.88240219571200138460605307167151641, +0.141609412377300883299650770296818903), (+1.95730682863708767722633754022088731, +0.658894168448365147482409482986529188), (+1.85857699387902726452282160920040061, +0.566646502907856194228460152726753764), (+1.34844559141263076200355989554074289, +0.684074451109203363471531868879753842)

41

42atad = getFFTI(getFFTF(data))

43atad

44(+1.67986982869487123416332131446352073, +0.196414092592931227069546254127615670), (+1.59220995167457720943835027025772922, +0.598417200276962574995710001374742882), (+1.91308994671823261995165254943046416, +0.207896509489680911543053103793403719), (+1.16801721004340955611014411525917613, +0.950535883917256862762460398697199687), (+1.23374221617992736626473336018767012, +0.307988262916941366243326107586072444E-1), (+1.24910168246479836922085633565059903, +0.765344289953377663550465856740647597), (+1.54709546491544405913318291101436446, +0.234109080393033670559892641741551928), (+1.50896096916134768925899445705299666, +0.825041359224795601672018046967013206), (+1.24278729628867828936310792297004808, +0.996877169661223064540798501511294684E-1), (+1.22727402540144855750451994352008806, +0.394422022433652635327042984364579645), (+1.68870673246558115821061862811956669, +0.736256222656001311219750860195329761), (+1.88240219571200138460605307167151641, +0.141609412377300883299650770296818903), (+1.95730682863708767722633754022088731, +0.658894168448365147482409482986529091), (+1.85857699387902726452282160920040080, +0.566646502907856194228460152726753860), (+1.34844559141263076200355989554074270, +0.684074451109203363471531868879753938), (-0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33)

45reltol = sqrt(epsilon(1._TKC))

46reltol

47+0.138777878078144567552953958511352539E-16

48isClose(data, atad(1:size(data)), reltol = reltol)

49T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

50call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

51

52lenData = getUnifRand(5, 100)

53lenData

54+33

55data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

56data

57+1.18352675, +1.28063202, +1.49405158, +1.63228393, +1.77396369, +1.02468228, +1.08516967, +1.22927332, +1.28495300, +1.98541951, +1.64128709, +1.61674345, +1.48724079, +1.96111846, +1.26345778, +1.06456780, +1.38078988, +1.06245995, +1.38779998, +1.87806058, +1.42487860, +1.11688221, +1.50760615, +1.65287232, +1.91324162, +1.75386333, +1.89675498, +1.90516961, +1.17183208, +1.04473829, +1.37104428, +1.94682205, +1.15942764

58

59atad = getFFTI(getFFTF(data))

60atad

61+1.18352687, +1.28063178, +1.49405146, +1.63228345, +1.77396369, +1.02468240, +1.08516955, +1.22927308, +1.28495288, +1.98541927, +1.64128685, +1.61674309, +1.48724079, +1.96111834, +1.26345778, +1.06456780, +1.38079011, +1.06245971, +1.38779998, +1.87806022, +1.42487860, +1.11688209, +1.50760603, +1.65287220, +1.91324151, +1.75386310, +1.89675474, +1.90516949, +1.17183185, +1.04473805, +1.37104416, +1.94682181, +1.15942752, +0.00000000, +0.00000000, +0.178813934E-6, -0.596046448E-7, -0.238418579E-6, +0.178813934E-6, +0.178813934E-6, +0.596046448E-7, +0.119209290E-6, +0.596046448E-7, +0.119209290E-6, +0.596046448E-7, -0.119209290E-6, -0.596046448E-7, +0.596046448E-7, -0.119209290E-6, +0.00000000, +0.00000000, +0.119209290E-6, -0.178813934E-6, -0.178813934E-6, +0.00000000, -0.119209290E-6, +0.119209290E-6, +0.596046448E-7, +0.178813934E-6, -0.178813934E-6, +0.238418579E-6, +0.596046448E-7, +0.119209290E-6, +0.119209290E-6

62reltol = sqrt(epsilon(1._TKC))

63reltol

64+0.345266977E-3

65isClose(data, atad(1:size(data)), reltol = reltol)

66T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

67call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

68

69lenData = getUnifRand(5, 100)

70lenData

71+58

72data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

73data

74+1.1780461336896388, +1.7547077386768684, +1.1490086144461800, +1.1007801118455842, +1.9438844262448243, +1.1063223279966998, +1.3958714307154181, +1.6175613532707178, +1.1703718407364632, +1.7694233577850342, +1.0650119273428473, +1.3871534021333565, +1.2752388746726702, +1.9187788170072437, +1.9266992520071113, +1.6604659231928593, +1.0286339153270299, +1.8831101109104564, +1.1986322534673630, +1.0548027950775696, +1.4836433702274443, +1.5448882618415523, +1.0643683136447333, +1.9428849514705515, +1.4726468575509315, +1.3049296236573893, +1.3025774352867563, +1.7259368792771770, +1.5478539068064339, +1.7335468307943378, +1.3550574353931781, +1.6650483941770069, +1.9805206578833543, +1.0766591528150657, +1.8598709114658138, +1.4417273797067056, +1.7946477229394620, +1.5699500408092661, +1.3946212718986772, +1.3401897549191593, +1.0521211300191595, +1.7324244607738160, +1.5251667770812909, +1.9351091118587975, +1.3671885624538525, +1.2525754057773857, +1.1346103444918918, +1.1936186104077051, +1.6765799033130790, +1.5173076074913672, +1.2575784396644047, +1.0251572809315483, +1.1872454504883567, +1.8449748452682928, +1.2148249804785918, +1.8654672747855734, +1.8635534536756864, +1.6376280684351818

75

76atad = getFFTI(getFFTF(data))

77atad

78+1.1780461336896391, +1.7547077386768686, +1.1490086144461800, +1.1007801118455847, +1.9438844262448240, +1.1063223279967003, +1.3958714307154181, +1.6175613532707183, +1.1703718407364632, +1.7694233577850342, +1.0650119273428478, +1.3871534021333565, +1.2752388746726697, +1.9187788170072440, +1.9266992520071111, +1.6604659231928591, +1.0286339153270303, +1.8831101109104569, +1.1986322534673630, +1.0548027950775698, +1.4836433702274441, +1.5448882618415525, +1.0643683136447333, +1.9428849514705515, +1.4726468575509308, +1.3049296236573895, +1.3025774352867563, +1.7259368792771772, +1.5478539068064332, +1.7335468307943380, +1.3550574353931784, +1.6650483941770065, +1.9805206578833543, +1.0766591528150660, +1.8598709114658138, +1.4417273797067058, +1.7946477229394620, +1.5699500408092664, +1.3946212718986777, +1.3401897549191593, +1.0521211300191593, +1.7324244607738164, +1.5251667770812916, +1.9351091118587971, +1.3671885624538525, +1.2525754057773859, +1.1346103444918920, +1.1936186104077049, +1.6765799033130788, +1.5173076074913674, +1.2575784396644050, +1.0251572809315486, +1.1872454504883563, +1.8449748452682926, +1.2148249804785922, +1.8654672747855736, +1.8635534536756859, +1.6376280684351820, +0.99920072216264089E-15, +0.55511151231257827E-15, +0.22204460492503131E-15, +0.66613381477509392E-15, +0.99920072216264089E-15, +0.66613381477509392E-15

79reltol = sqrt(epsilon(1._TKC))

80reltol

81+0.14901161193847656E-7

82isClose(data, atad(1:size(data)), reltol = reltol)

83T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

84call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

85

86lenData = getUnifRand(5, 100)

87lenData

88+66

89data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

90data

91+1.62725796703879336166044988443281002, +1.09110005586887501158346194805998873, +1.70661483876597518191381933906341872, +1.62305853928062646608879906790291570, +1.77173248564153139004421004132560567, +1.14095391116633118174329540171592770, +1.70738377705464878945762090334013704, +1.75011369930241790625324494890087100, +1.48502424465276287306901417033872846, +1.44206851125610164193895086839363432, +1.02138458908841016679776071386225652, +1.61404468912072314551723885115236677, +1.61261950001411009268989271493597287, +1.96640994135406467431730721221443431, +1.23060153126185450402168992738247943, +1.82399861269368517031487767237319858, +1.45670589258499577445757065608772956, +1.34680324468679473503524783308782603, +1.81569619370914959345901630029609389, +1.36681370941841935829628364734697688, +1.79732511310846215914168474105034909, +1.46236387881075220402759947115152359, +1.58472444401095421332910705100380278, +1.05040172461386367770293164482553334, +1.13956795240094688761647817958630515, +1.96101809958250136043076590975760688, +1.91337336004984103256211525985952523, +1.69674431649790292627326236934962010, +1.48805868500816141128842139071388326, +1.47931528453462422695419075207183435, +1.15000349829139335499892189282427090, +1.99881161893343508775824452763905330, +1.18991775116628523723707877102538846, +1.16833878643412070061672574888654521, +1.24641579861639019995855167406141875, +1.58068521183737710278627983191015547, +1.06846157251972920344781374991043850, +1.95756191542604285342823190427389722, +1.05837355542232048090796760506504048, +1.74174058427987777727673402836619336, +1.44148748948427213094082573357397869, +1.49936592624112250180589838020926017, +1.96552743924098924968134980419965404, +1.12436251536737808339805931377674861, +1.31802619564677300654402326433118713, +1.47636135001460238748938925310898320, +1.18310346020054417068333631973627565, +1.83152004700910665886725872328025916, +1.80007044783389251605580091669300812, +1.98976473098486031178452232956210673, +1.18806138937507235638454120167131748, +1.71871274363648635492692768469831877, +1.58065753440930115365954448275037445, +1.27402150796709595129500643986765567, +1.37046456151693217311865115914069131, +1.21521046216900697560100578519478049, +1.31810196054433266827436217127487990, +1.50968917913686230286835573772320421, +1.57704735480727465081913813613521913, +1.88954859472139974129647457791815135, +1.01631495883679255950298593537614674, +1.65254570406704167239316336592800270, +1.02620807504048107227330980083546662, +1.72368885638466475032288448216656714, +1.63487807007063984067187147233216836, +1.56742057563175355568737754551009241

92

93atad = getFFTI(getFFTF(data))

94atad

95+1.62725796703879336166044988443281002, +1.09110005586887501158346194805998873, +1.70661483876597518191381933906341872, +1.62305853928062646608879906790291589, +1.77173248564153139004421004132560548, +1.14095391116633118174329540171592770, +1.70738377705464878945762090334013685, +1.75011369930241790625324494890087100, +1.48502424465276287306901417033872943, +1.44206851125610164193895086839363432, +1.02138458908841016679776071386225710, +1.61404468912072314551723885115236677, +1.61261950001411009268989271493597344, +1.96640994135406467431730721221443431, +1.23060153126185450402168992738247981, +1.82399861269368517031487767237319858, +1.45670589258499577445757065608772956, +1.34680324468679473503524783308782584, +1.81569619370914959345901630029609370, +1.36681370941841935829628364734697688, +1.79732511310846215914168474105034909, +1.46236387881075220402759947115152339, +1.58472444401095421332910705100380240, +1.05040172461386367770293164482553315, +1.13956795240094688761647817958630515, +1.96101809958250136043076590975760708, +1.91337336004984103256211525985952542, +1.69674431649790292627326236934962010, +1.48805868500816141128842139071388326, +1.47931528453462422695419075207183435, +1.15000349829139335499892189282427052, +1.99881161893343508775824452763905368, +1.18991775116628523723707877102538846, +1.16833878643412070061672574888654483, +1.24641579861639019995855167406141837, +1.58068521183737710278627983191015528, +1.06846157251972920344781374991043869, +1.95756191542604285342823190427389684, +1.05837355542232048090796760506504048, +1.74174058427987777727673402836619316, +1.44148748948427213094082573357397869, +1.49936592624112250180589838020926055, +1.96552743924098924968134980419965461, +1.12436251536737808339805931377674861, +1.31802619564677300654402326433118752, +1.47636135001460238748938925310898339, +1.18310346020054417068333631973627565, +1.83152004700910665886725872328025935, +1.80007044783389251605580091669300831, +1.98976473098486031178452232956210634, +1.18806138937507235638454120167131748, +1.71871274363648635492692768469831877, +1.58065753440930115365954448275037484, +1.27402150796709595129500643986765548, +1.37046456151693217311865115914069131, +1.21521046216900697560100578519478049, +1.31810196054433266827436217127488009, +1.50968917913686230286835573772320479, +1.57704735480727465081913813613521952, +1.88954859472139974129647457791815193, +1.01631495883679255950298593537614674, +1.65254570406704167239316336592800289, +1.02620807504048107227330980083546662, +1.72368885638466475032288448216656752, +1.63487807007063984067187147233216856, +1.56742057563175355568737754551009280, -0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, +0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-33, -0.192592994438723585305597794258492732E-33, -0.577778983316170755916793382775478196E-33, -0.288889491658085377958396691387739098E-33, -0.866668474974256133875190074163217293E-33, -0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, +0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, +0.674075480535532548569592279904724561E-33, -0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, +0.385185988877447170611195588516985464E-33, +0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-33, +0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33, -0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33

96reltol = sqrt(epsilon(1._TKC))

97reltol

98+0.138777878078144567552953958511352539E-16

99isClose(data, atad(1:size(data)), reltol = reltol)

100T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

101call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

102

103lenData = getUnifRand(5, 100)

104lenData

105+45

106data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

107data

108(+1.24802732, +0.585004091E-1), (+1.43780589, +0.774356365), (+1.65395451, +0.261533856), (+1.64195275, +0.509176493), (+1.87451625, +0.459145308E-1), (+1.61552250, +0.123010397), (+1.58363855, +0.635773003), (+1.26775110, +0.172206223), (+1.71477342, +0.354542792), (+1.60842717, +0.266709089), (+1.67450845, +0.761322141), (+1.21185470, +0.306152999), (+1.37116313, +0.290967226E-1), (+1.57043314, +0.948271990), (+1.37631488, +0.774456084), (+1.05712438, +0.271575272), (+1.09327698, +0.446483910), (+1.56437612, +0.939864516), (+1.75898814, +0.395642161), (+1.39185619, +0.977192760), (+1.45989943, +0.570808589), (+1.22496450, +0.540879309), (+1.79524624, +0.384962559), (+1.19630671, +0.832311094), (+1.23121893, +0.125459671), (+1.68956947, +0.613758922), (+1.14492786, +0.201577127), (+1.31261265, +0.390676737), (+1.11475050, +0.884326279), (+1.42552638, +0.249089241), (+1.58172059, +0.649173558), (+1.69979310, +0.219958186), (+1.04172540, +0.417674363), (+1.12573063, +0.471940637), (+1.88283622, +0.354563057), (+1.21076488, +0.530359089), (+1.56387591, +0.944278717), (+1.01375210, +0.576310813), (+1.73488927, +0.199355125), (+1.93234658, +0.663100898), (+1.16753864, +0.237195790), (+1.10537934, +0.425439477), (+1.22549605, +0.136511922), (+1.57166064, +0.587584019), (+1.86282229, +0.318980813E-1)

109

110atad = getFFTI(getFFTF(data))

111atad

112(+1.24802721, +0.585003495E-1), (+1.43780565, +0.774356484), (+1.65395427, +0.261533678), (+1.64195240, +0.509176433), (+1.87451613, +0.459145606E-1), (+1.61552238, +0.123010427), (+1.58363831, +0.635772884), (+1.26775098, +0.172206193), (+1.71477330, +0.354542881), (+1.60842705, +0.266709298), (+1.67450809, +0.761322141), (+1.21185470, +0.306153059), (+1.37116313, +0.290970132E-1), (+1.57043290, +0.948272169), (+1.37631464, +0.774456263), (+1.05712414, +0.271575272), (+1.09327686, +0.446483970), (+1.56437612, +0.939864516), (+1.75898802, +0.395642102), (+1.39185607, +0.977192640), (+1.45989931, +0.570808649), (+1.22496438, +0.540879369), (+1.79524601, +0.384962410), (+1.19630671, +0.832311094), (+1.23121881, +0.125459716), (+1.68956912, +0.613758922), (+1.14492774, +0.201577201), (+1.31261277, +0.390676737), (+1.11475015, +0.884326279), (+1.42552614, +0.249089301), (+1.58172035, +0.649173617), (+1.69979262, +0.219958186), (+1.04172528, +0.417674422), (+1.12573051, +0.471940637), (+1.88283634, +0.354563057), (+1.21076500, +0.530358851), (+1.56387579, +0.944278717), (+1.01375198, +0.576310873), (+1.73488915, +0.199355125), (+1.93234658, +0.663100839), (+1.16753852, +0.237195820), (+1.10537910, +0.425439388), (+1.22549605, +0.136511892), (+1.57166076, +0.587583899), (+1.86282206, +0.318982378E-1), (+0.178813934E-6, -0.178813934E-6), (+0.596046448E-7, -0.298023224E-7), (+0.178813934E-6, +0.104308128E-6), (-0.119209290E-6, +0.149011612E-7), (-0.178813934E-6, +0.119209290E-6), (+0.119209290E-6, +0.134110451E-6), (+0.119209290E-6, +0.268220901E-6), (-0.119209290E-6, +0.00000000), (-0.596046448E-7, -0.298023224E-7), (-0.119209290E-6, -0.298023224E-7), (+0.596046448E-7, +0.00000000), (+0.596046448E-7, -0.745058060E-7), (-0.119209290E-6, +0.00000000), (+0.00000000, +0.447034836E-7), (+0.178813934E-6, +0.134110451E-6), (-0.596046448E-7, -0.298023224E-6), (+0.178813934E-6, +0.596046448E-7), (+0.596046448E-7, -0.298023224E-7), (+0.00000000, +0.596046448E-7)

113reltol = sqrt(epsilon(1._TKC))

114reltol

115+0.345266977E-3

116isClose(data, atad(1:size(data)), reltol = reltol)

117T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

118call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

119

120lenData = getUnifRand(5, 100)

121lenData

122+92

123data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

124data

125(+1.7516629970231290, +0.10783045966113902), (+1.0785854436702391, +0.74868447965098461), (+1.8296097202575083, +0.93816607561221232), (+1.3326030915818858, +0.53359279462930376), (+1.5098360789265588, +0.85942993962103542), (+1.3750993847895101, +0.83971000350630298), (+1.0727371814390092, +0.51723617445810410), (+1.6434691469331288, +0.54090977693699527E-1), (+1.9941806945765093, +0.56704378340406802), (+1.9644756502765710, +0.66912820244256366), (+1.4897169835567081, +0.54797707957278796), (+1.0368281934692838, +0.54737781637259664), (+1.7441067834202526, +0.59326856375298342), (+1.1111438793541817, +0.36941788789146646), (+1.0145607196408073, +0.71639242092427047), (+1.8895881626964450, +0.15384867032857785), (+1.9636863576682648, +0.49195172023588296), (+1.7548355097351229, +0.19148239286437607), (+1.5950473442028894, +0.28087724000131631), (+1.7959865855459494, +0.44980917714564372), (+1.6509012965749141, +0.63594485015240176), (+1.3899712225039815, +0.33621686809510165), (+1.5948222346884879, +0.75151205193793713), (+1.9578401442106463, +0.99304545418814616E-1), (+1.3293860335663086, +0.81895797031697348), (+1.4178672611531997, +0.73967010748497408), (+1.8445737114284539, +0.94574053792620028), (+1.8204194066573725, +0.40448536914990030), (+1.7405840458687138, +0.44245896634971227), (+1.4598631287699868, +0.73647712703055190), (+1.5410286707076828, +0.80879686744087731), (+1.5398721982279238, +0.54775034351274232), (+1.3817135869854276, +0.32716372324168996), (+1.1289383393707686, +0.96371783016895085E-1), (+1.9382779074545322, +0.33084290460004495), (+1.6186236623217103, +0.43371866786654323), (+1.4997525303315291, +0.62014971922527184), (+1.0454481105687188, +0.26056991830650433), (+1.7017880921674031, +0.44288815357383837), (+1.7954488925220482, +0.88638688471772253), (+1.1194930438822981, +0.88898250589210970E-1), (+1.7873199640213291, +0.71462906355593792), (+1.2603399687738270, +0.85392432857376110), (+1.7711042810749518, +0.80073105697261704), (+1.6169144258336814, +0.23374649088068544), (+1.0529377158635156, +0.84712329445735346), (+1.9512491375630590, +0.62958066007731206), (+1.3743612246350141, +0.37077172938047165), (+1.2382813231001322, +0.78080455536634885), (+1.9094550210355608, +0.73431082016130578), (+1.4151106430676816, +0.38230191888150455), (+1.1632839081560342, +0.32692978246290150), (+1.7780010091730980, +0.14007047603794687), (+1.1296722086027851, +0.21178093459220315), (+1.6764798104178635, +0.68788744976424654), (+1.6990391711879620, +0.74824822952867931), (+1.5418281724462228, +0.75445348684257896E-1), (+1.9754089072112890, +0.95687603696530099), (+1.4939508216223873, +0.15366162728203769), (+1.1672349543920642, +0.61132060138445410), (+1.8522702843816232, +0.51004793461649622), (+1.1843835391907034, +0.55142927074592307), (+1.9811697399777646, +0.39336301230201598), (+1.4616716358204676, +0.17885934340375331E-1), (+1.8618533208474481, +0.13554147894668300), (+1.6821866760926669, +0.57934204038174175), (+1.6584831153213349, +0.79503641955660054), (+1.7643335309378885, +0.95442099539929326E-1), (+1.0472842314103521, +0.73218499649650415), (+1.1586439682765342, +0.79551756556984721), (+1.1327847934182191, +0.44723585446648451), (+1.0873679702114738, +0.87753954325707939), (+1.4257187134156435, +0.93339177585470268), (+1.3527548656879231, +0.62233037011386150), (+1.6932552785323622, +0.24787112340471229), (+1.2868961690283709, +0.32131775578970001), (+1.7380567273716823, +0.56718040545056092), (+1.8223995620523037, +0.22468282516716398E-1), (+1.4792779015439785, +0.20749902804239395), (+1.2380189154245458, +0.81093397259764954), (+1.5899320463972932, +0.44910771596720434), (+1.9059465465124918, +0.86824376186335572), (+1.2293982183501049, +0.65398522777340151E-1), (+1.7099282767342081, +0.23373933130672675), (+1.8594608840066025, +0.55581989912188434), (+1.3594690000112972, +0.93027885859402126), (+1.2533902327398052, +0.69675859191770673), (+1.6610430527273390, +0.61408963591030474), (+1.7134868698024197, +0.19450773276216082), (+1.7504419365149488, +0.47402552215940275), (+1.5469607147591304, +0.29925554375450214), (+1.0737420981114993, +0.54158176688341420)

126

127atad = getFFTI(getFFTF(data))

128atad

129(+1.7516629970231288, +0.10783045966113902), (+1.0785854436702396, +0.74868447965098484), (+1.8296097202575081, +0.93816607561221255), (+1.3326030915818863, +0.53359279462930398), (+1.5098360789265584, +0.85942993962103564), (+1.3750993847895099, +0.83971000350630287), (+1.0727371814390092, +0.51723617445810444), (+1.6434691469331291, +0.54090977693699860E-1), (+1.9941806945765090, +0.56704378340406825), (+1.9644756502765715, +0.66912820244256410), (+1.4897169835567081, +0.54797707957278863), (+1.0368281934692838, +0.54737781637259675), (+1.7441067834202524, +0.59326856375298376), (+1.1111438793541817, +0.36941788789146657), (+1.0145607196408071, +0.71639242092427091), (+1.8895881626964450, +0.15384867032857846), (+1.9636863576682644, +0.49195172023588302), (+1.7548355097351234, +0.19148239286437652), (+1.5950473442028894, +0.28087724000131647), (+1.7959865855459494, +0.44980917714564395), (+1.6509012965749139, +0.63594485015240176), (+1.3899712225039813, +0.33621686809510160), (+1.5948222346884877, +0.75151205193793724), (+1.9578401442106461, +0.99304545418814949E-1), (+1.3293860335663084, +0.81895797031697359), (+1.4178672611531997, +0.73967010748497430), (+1.8445737114284533, +0.94574053792620050), (+1.8204194066573720, +0.40448536914990063), (+1.7405840458687138, +0.44245896634971210), (+1.4598631287699864, +0.73647712703055179), (+1.5410286707076826, +0.80879686744087720), (+1.5398721982279233, +0.54775034351274210), (+1.3817135869854273, +0.32716372324168974), (+1.1289383393707686, +0.96371783016895002E-1), (+1.9382779074545320, +0.33084290460004467), (+1.6186236623217103, +0.43371866786654339), (+1.4997525303315293, +0.62014971922527151), (+1.0454481105687190, +0.26056991830650428), (+1.7017880921674031, +0.44288815357383809), (+1.7954488925220482, +0.88638688471772231), (+1.1194930438822976, +0.88898250589210720E-1), (+1.7873199640213295, +0.71462906355593792), (+1.2603399687738270, +0.85392432857376077), (+1.7711042810749520, +0.80073105697261704), (+1.6169144258336812, +0.23374649088068528), (+1.0529377158635156, +0.84712329445735324), (+1.9512491375630585, +0.62958066007731173), (+1.3743612246350141, +0.37077172938047132), (+1.2382813231001317, +0.78080455536634874), (+1.9094550210355612, +0.73431082016130589), (+1.4151106430676812, +0.38230191888150422), (+1.1632839081560347, +0.32692978246290144), (+1.7780010091730973, +0.14007047603794670), (+1.1296722086027848, +0.21178093459220326), (+1.6764798104178635, +0.68788744976424610), (+1.6990391711879620, +0.74824822952867920), (+1.5418281724462226, +0.75445348684257924E-1), (+1.9754089072112886, +0.95687603696530110), (+1.4939508216223873, +0.15366162728203758), (+1.1672349543920642, +0.61132060138445399), (+1.8522702843816228, +0.51004793461649578), (+1.1843835391907034, +0.55142927074592296), (+1.9811697399777646, +0.39336301230201554), (+1.4616716358204673, +0.17885934340374963E-1), (+1.8618533208474479, +0.13554147894668322), (+1.6821866760926669, +0.57934204038174197), (+1.6584831153213349, +0.79503641955660065), (+1.7643335309378885, +0.95442099539929576E-1), (+1.0472842314103519, +0.73218499649650415), (+1.1586439682765339, +0.79551756556984732), (+1.1327847934182196, +0.44723585446648451), (+1.0873679702114736, +0.87753954325707928), (+1.4257187134156430, +0.93339177585470301), (+1.3527548656879231, +0.62233037011386172), (+1.6932552785323622, +0.24787112340471248), (+1.2868961690283707, +0.32131775578970001), (+1.7380567273716820, +0.56718040545056048), (+1.8223995620523032, +0.22468282516716759E-1), (+1.4792779015439781, +0.20749902804239367), (+1.2380189154245453, +0.81093397259764921), (+1.5899320463972928, +0.44910771596720439), (+1.9059465465124918, +0.86824376186335561), (+1.2293982183501049, +0.65398522777340054E-1), (+1.7099282767342079, +0.23373933130672653), (+1.8594608840066023, +0.55581989912188401), (+1.3594690000112972, +0.93027885859402093), (+1.2533902327398054, +0.69675859191770639), (+1.6610430527273388, +0.61408963591030441), (+1.7134868698024195, +0.19450773276216099), (+1.7504419365149486, +0.47402552215940275), (+1.5469607147591298, +0.29925554375450175), (+1.0737420981114987, +0.54158176688341375), (+0.33306690738754696E-15, +0.0000000000000000), (+0.22204460492503131E-15, -0.33306690738754696E-15), (+0.33306690738754696E-15, -0.16653345369377348E-15), (+0.22204460492503131E-15, -0.55511151231257827E-15), (-0.44408920985006262E-15, +0.33306690738754696E-15), (+0.22204460492503131E-15, -0.13183898417423734E-15), (-0.22204460492503131E-15, +0.27755575615628914E-15), (+0.44408920985006262E-15, -0.27755575615628914E-15), (-0.55511151231257827E-15, +0.33306690738754696E-15), (+0.11102230246251565E-15, +0.55511151231257827E-16), (+0.0000000000000000, +0.22204460492503131E-15), (-0.33306690738754696E-15, +0.0000000000000000), (-0.77715611723760958E-15, -0.19428902930940239E-15), (+0.0000000000000000, -0.11102230246251565E-15), (-0.11102230246251565E-15, -0.16653345369377348E-15), (+0.0000000000000000, -0.22204460492503131E-15), (-0.11102230246251565E-15, +0.27755575615628914E-15), (-0.11102230246251565E-15, +0.0000000000000000), (-0.33306690738754696E-15, +0.27755575615628914E-15), (+0.33306690738754696E-15, -0.83266726846886741E-16), (-0.55511151231257827E-15, +0.27755575615628914E-15), (+0.44408920985006262E-15, -0.11102230246251565E-15), (-0.11102230246251565E-15, +0.47184478546569153E-15), (+0.77715611723760958E-15, +0.11102230246251565E-15), (-0.22204460492503131E-15, +0.72164496600635175E-15), (+0.22204460492503131E-15, +0.33306690738754696E-15), (-0.11102230246251565E-15, +0.77715611723760958E-15), (+0.11102230246251565E-15, +0.44408920985006262E-15), (+0.22204460492503131E-15, +0.24980018054066022E-15), (+0.44408920985006262E-15, +0.22204460492503131E-15), (+0.11102230246251565E-15, +0.44408920985006262E-15), (+0.22204460492503131E-15, +0.11102230246251565E-15), (+0.0000000000000000, +0.77715611723760958E-15), (+0.22204460492503131E-15, +0.55511151231257827E-16), (-0.22204460492503131E-15, +0.91593399531575415E-15), (+0.66613381477509392E-15, +0.97838404045091920E-15)

130reltol = sqrt(epsilon(1._TKC))

131reltol

132+0.14901161193847656E-7

133isClose(data, atad(1:size(data)), reltol = reltol)

134T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

135call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

136

137lenData = getUnifRand(5, 100)

138lenData

139+62

140data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

141data

142(+1.83463290633880729565848766317274610, +0.867934325802091166257329109390218597), (+1.28540889620390863119730292649581299, +0.699993114250755853110598786261912200), (+1.41278394775958087570843949782192056, +0.944045909993285382577198406968906863), (+1.00107440697635755346400356905828624, +0.755498988999830980330185060773367177), (+1.05573351403669777697532397730563436, +0.253597117206854536107754701444359121), (+1.94637846114542084314805183567723785, +0.123234541150409123058859000383964647), (+1.24534106139915748712484399464287870, +0.526901859959817708449151646139406325), (+1.89569720521975264801568677417491073, +0.222239910652190425203393655854155791), (+1.80751968069877696201019637480090538, +0.142363567235061465471181043924981976), (+1.73853697815183914024859909579989340, +0.133955996934649896339224718823862239), (+1.56541330534034037190094160690525404, +0.976047041327639717116373333220569174), (+1.99342656541486119456611918475215050, +0.393090754257630927565937646004839950), (+1.85677710165794991841861211464767905, +0.244484821789036529876653607806760150E-1), (+1.00384278530759838133581418444115049, +0.243495767804886335146305793132093047), (+1.47156667091623746660718887649926236, +0.144852726756350712663576523108631007E-1), (+1.98732337840006860583920481642341084, +0.411272032580255343573662485986662718), (+1.62665517498210134299343319916722258, +0.181694055458369556878237853096988964), (+1.09723664641095373303782516752786583, +0.490340962691996596106230235097133214), (+1.55226885850559348664377882132078323, +0.312858717755764393080979007041884989), (+1.86639214513625323051160438064083689, +0.764119323555270914224058147349112135), (+1.93139923631896893848816846636928751, +0.710796901439116707153318385889470037), (+1.67855490643207169886764893325913749, +0.840409262049657347251456749597535841E-1), (+1.56405016078828204614465240698600528, +0.673442219923917381389771390157516964), (+1.27839746421598254630430532754210669, +0.208775376237307981355215428525208769), (+1.14822490829498571008155646600848995, +0.763142950833530883104831227512739220), (+1.32217418205303018857519335601634570, +0.838512300688079925377221964163672071), (+1.30474147035821977806435871346385745, +0.757737979566533396435010426187815558), (+1.68408497032356098962861014966818263, +0.504029454733756754425227711330810905), (+1.31204146780101576408977147530570955, +0.970102741322462830547644020635928216), (+1.85161983534582721150688318696057756, +0.824472399585456984020282116430725268), (+1.28251615088531975976188685561778608, +0.130853948325288447538274990900442426), (+1.04480058358848109037953228708900947, +0.833729759534535147792174000689504281), (+1.21318656568110097667863762465237556, +0.507458525947871387073594621773323870E-1), (+1.92661614054226929052249287103704921, +0.859175321316864136664515340462628843), (+1.30620710276968618929536062585114583, +0.615747246730872370139427028624976042), (+1.33269260873506605507553630413368969, +0.685208961194965907595811993390861527), (+1.66947791869659107182149854752468409, +0.152047774688418621680678160319679900), (+1.19971949026467047639696237543811603, +0.209052981390842272492442991834747327E-1), (+1.74779939528344451875114892830565671, +0.533605099161473208136053734977220599), (+1.14052363663723256618781615821486527, +0.639039292114790867896814325288596346), (+1.07137720097396819408494011124913780, +0.850551718146083100472805257085845935), (+1.01631248623978671604499105816435770, +0.534144554045324491893639804468515631), (+1.08164091932389167428291908468590188, +0.690505185676158361154038836355179221), (+1.20649488914706132943115298300549386, +0.129602737294904754520139475169428308), (+1.96572147882082576911421453779562429, +0.869837356928536478023138914914629953), (+1.46930329669537156548888243593994508, +0.488467452222196753840160529566178755), (+1.17120688960705543602557359030690510, +0.956300251283011416936589354702563105), (+1.22053436626992853021412706800931678, +0.129560538100957579819174093267132603), (+1.98920242378875863436152378425882419, +0.742515323614517065057706755186276571), (+1.51481324054078252245376351829051364, +0.136241511608481073964333313751059946), (+1.72250341518561014848125115380153511, +0.600997241871947947584127386128268777), (+1.18538333588927069457882159976374067, +0.417515162665277763992736709197769002), (+1.72356182451758109703785280094420159, +0.360375239939805293188613683044604564), (+1.40113131185485560525613603194395168, +0.629536408890877063458720602249076048), (+1.84863221102010146682969339040322773, +0.337599038364490915082555314367778435), (+1.81391071047841810985287724381628626, +0.601314651867854330493328992864858772), (+1.70407366133599897485669376442737711, +0.208068902635776189245276824191990114), (+1.80226590428965398727051841286215614, +0.102743348061483865814564693762109474), (+1.99937200460566158317941646279827971, +0.592187934864841390587046446763083795), (+1.58016160325745743349460800326773500, +0.739458742523065948255152543554370564E-1), (+1.98997951825862180199896128998954705, +0.865135123829057942080846395546300561), (+1.19165110984537916035490260367667960, +0.646122852584779250846842605598164659E-1)

143

144atad = getFFTI(getFFTF(data))

145atad

146(+1.83463290633880729565848766317274610, +0.867934325802091166257329109390218501), (+1.28540889620390863119730292649581299, +0.699993114250755853110598786261912200), (+1.41278394775958087570843949782192037, +0.944045909993285382577198406968906960), (+1.00107440697635755346400356905828624, +0.755498988999830980330185060773367274), (+1.05573351403669777697532397730563398, +0.253597117206854536107754701444359024), (+1.94637846114542084314805183567723785, +0.123234541150409123058859000383964454), (+1.24534106139915748712484399464287832, +0.526901859959817708449151646139406325), (+1.89569720521975264801568677417491093, +0.222239910652190425203393655854155551), (+1.80751968069877696201019637480090538, +0.142363567235061465471181043924982072), (+1.73853697815183914024859909579989321, +0.133955996934649896339224718823862094), (+1.56541330534034037190094160690525366, +0.976047041327639717116373333220569174), (+1.99342656541486119456611918475215031, +0.393090754257630927565937646004839950), (+1.85677710165794991841861211464767924, +0.244484821789036529876653607806759668E-1), (+1.00384278530759838133581418444115030, +0.243495767804886335146305793132093047), (+1.47156667091623746660718887649926197, +0.144852726756350712663576523108632933E-1), (+1.98732337840006860583920481642341065, +0.411272032580255343573662485986663104), (+1.62665517498210134299343319916722238, +0.181694055458369556878237853096988916), (+1.09723664641095373303782516752786583, +0.490340962691996596106230235097133310), (+1.55226885850559348664377882132078284, +0.312858717755764393080979007041884989), (+1.86639214513625323051160438064083670, +0.764119323555270914224058147349112135), (+1.93139923631896893848816846636928751, +0.710796901439116707153318385889470134), (+1.67855490643207169886764893325913768, +0.840409262049657347251456749597534878E-1), (+1.56405016078828204614465240698600508, +0.673442219923917381389771390157516964), (+1.27839746421598254630430532754210689, +0.208775376237307981355215428525208962), (+1.14822490829498571008155646600849015, +0.763142950833530883104831227512739027), (+1.32217418205303018857519335601634590, +0.838512300688079925377221964163671975), (+1.30474147035821977806435871346385725, +0.757737979566533396435010426187815655), (+1.68408497032356098962861014966818263, +0.504029454733756754425227711330810713), (+1.31204146780101576408977147530570936, +0.970102741322462830547644020635928120), (+1.85161983534582721150688318696057718, +0.824472399585456984020282116430725460), (+1.28251615088531975976188685561778589, +0.130853948325288447538274990900442402), (+1.04480058358848109037953228708900928, +0.833729759534535147792174000689504185), (+1.21318656568110097667863762465237556, +0.507458525947871387073594621773323389E-1), (+1.92661614054226929052249287103704921, +0.859175321316864136664515340462628843), (+1.30620710276968618929536062585114545, +0.615747246730872370139427028624976042), (+1.33269260873506605507553630413368969, +0.685208961194965907595811993390861623), (+1.66947791869659107182149854752468389, +0.152047774688418621680678160319679852), (+1.19971949026467047639696237543811603, +0.209052981390842272492442991834747809E-1), (+1.74779939528344451875114892830565671, +0.533605099161473208136053734977220599), (+1.14052363663723256618781615821486546, +0.639039292114790867896814325288596250), (+1.07137720097396819408494011124913819, +0.850551718146083100472805257085845839), (+1.01631248623978671604499105816435789, +0.534144554045324491893639804468515728), (+1.08164091932389167428291908468590169, +0.690505185676158361154038836355179318), (+1.20649488914706132943115298300549406, +0.129602737294904754520139475169428404), (+1.96572147882082576911421453779562429, +0.869837356928536478023138914914629953), (+1.46930329669537156548888243593994489, +0.488467452222196753840160529566178658), (+1.17120688960705543602557359030690433, +0.956300251283011416936589354702563201), (+1.22053436626992853021412706800931640, +0.129560538100957579819174093267132506), (+1.98920242378875863436152378425882400, +0.742515323614517065057706755186276571), (+1.51481324054078252245376351829051364, +0.136241511608481073964333313751059777), (+1.72250341518561014848125115380153472, +0.600997241871947947584127386128268873), (+1.18538333588927069457882159976374028, +0.417515162665277763992736709197769098), (+1.72356182451758109703785280094420139, +0.360375239939805293188613683044604515), (+1.40113131185485560525613603194395149, +0.629536408890877063458720602249076144), (+1.84863221102010146682969339040322753, +0.337599038364490915082555314367778483), (+1.81391071047841810985287724381628626, +0.601314651867854330493328992864858964), (+1.70407366133599897485669376442737730, +0.208068902635776189245276824191990018), (+1.80226590428965398727051841286215634, +0.102743348061483865814564693762109522), (+1.99937200460566158317941646279827933, +0.592187934864841390587046446763083795), (+1.58016160325745743349460800326773500, +0.739458742523065948255152543554370083E-1), (+1.98997951825862180199896128998954686, +0.865135123829057942080846395546300657), (+1.19165110984537916035490260367667922, +0.646122852584779250846842605598163696E-1), (-0.288889491658085377958396691387739098E-33, +0.722223729145213444895991728469347744E-34), (-0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34)

147reltol = sqrt(epsilon(1._TKC))

148reltol

149+0.138777878078144567552953958511352539E-16

150isClose(data, atad(1:size(data)), reltol = reltol)

151T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

152call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

153

154lenData = getUnifRand(5, 100)

155lenData

156+93

157data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

158data

159+1.19380975, +1.38318133, +1.96143460, +1.17851985, +1.47649550, +1.33601105, +1.49817038, +1.08141899, +1.22210479, +1.52277732, +1.81400514, +1.00044847, +1.66282129, +1.28464103, +1.64290774, +1.38103461, +1.91922510, +1.65272093, +1.55097079, +1.66320193, +1.05435872, +1.80734885, +1.29158592, +1.13121724, +1.35946643, +1.07473421, +1.03208590, +1.00944233, +1.39365292, +1.51709187, +1.65547216, +1.43357682, +1.78376329, +1.46459413, +1.56312847, +1.47585225, +1.42469633, +1.38588297, +1.18069816, +1.67222166, +1.38919950, +1.70860159, +1.09763825, +1.40152669, +1.41819239, +1.81041026, +1.68950820, +1.54963636, +1.75333071, +1.62550998, +1.82143843, +1.07152331, +1.29512954, +1.84391510, +1.02718043, +1.14891613, +1.74314833, +1.20389831, +1.08679152, +1.20389509, +1.14130116, +1.29448903, +1.14307284, +1.01960993, +1.37774086, +1.92322350, +1.34205222, +1.83457375, +1.19105411, +1.78735852, +1.93078458, +1.85583758, +1.40002728, +1.46757460, +1.96508884, +1.46798348, +1.45258403, +1.64131665, +1.82330370, +1.17468727, +1.07203388, +1.80720985, +1.26497138, +1.15547705, +1.23182702, +1.32589221, +1.03785729, +1.71308231, +1.09275019, +1.24530113, +1.63346362, +1.09091687, +1.95698476

160

161atad = getFFTI(getFFTF(data))

162atad

163+1.19380963, +1.38318157, +1.96143436, +1.17851996, +1.47649550, +1.33601105, +1.49817026, +1.08141875, +1.22210503, +1.52277768, +1.81400526, +1.00044870, +1.66282129, +1.28464115, +1.64290774, +1.38103449, +1.91922522, +1.65272129, +1.55097067, +1.66320181, +1.05435872, +1.80734873, +1.29158580, +1.13121748, +1.35946667, +1.07473457, +1.03208613, +1.00944257, +1.39365268, +1.51709199, +1.65547180, +1.43357694, +1.78376317, +1.46459424, +1.56312847, +1.47585225, +1.42469633, +1.38588262, +1.18069828, +1.67222142, +1.38919973, +1.70860171, +1.09763837, +1.40152669, +1.41819251, +1.81041038, +1.68950844, +1.54963648, +1.75333059, +1.62551022, +1.82143807, +1.07152343, +1.29512954, +1.84391499, +1.02718055, +1.14891589, +1.74314833, +1.20389855, +1.08679140, +1.20389509, +1.14130116, +1.29448879, +1.14307261, +1.01960981, +1.37774074, +1.92322373, +1.34205198, +1.83457398, +1.19105411, +1.78735864, +1.93078482, +1.85583711, +1.40002728, +1.46757495, +1.96508873, +1.46798372, +1.45258403, +1.64131677, +1.82330382, +1.17468727, +1.07203388, +1.80721009, +1.26497114, +1.15547705, +1.23182702, +1.32589245, +1.03785765, +1.71308231, +1.09275019, +1.24530137, +1.63346338, +1.09091711, +1.95698476, +0.298023224E-6, +0.298023224E-6, +0.476837158E-6, -0.298023224E-6, +0.357627869E-6, +0.00000000, +0.596046448E-6, +0.00000000, +0.298023224E-6, +0.119209290E-6, +0.536441803E-6, +0.596046448E-7, +0.357627869E-6, +0.00000000, +0.298023224E-6, +0.119209290E-6, +0.357627869E-6, +0.238418579E-6, +0.357627869E-6, +0.119209290E-6, +0.596046448E-7, +0.596046448E-7, +0.357627869E-6, +0.178813934E-6, +0.357627869E-6, +0.119209290E-6, +0.238418579E-6, +0.417232513E-6, +0.119209290E-6, +0.119209290E-6, +0.238418579E-6, +0.596046448E-7, +0.119209290E-6, +0.119209290E-6, +0.238418579E-6

164reltol = sqrt(epsilon(1._TKC))

165reltol

166+0.345266977E-3

167isClose(data, atad(1:size(data)), reltol = reltol)

168T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

169call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

170

171lenData = getUnifRand(5, 100)

172lenData

173+95

174data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

175data

176+1.2794065959500720, +1.6164873887951046, +1.5026561360201558, +1.9955458537025388, +1.6333342278468725, +1.3161912041016541, +1.9259511177612472, +1.9513441535420504, +1.8899770098385025, +1.3779584582707032, +1.8441829478190699, +1.3830657388813705, +1.9336125641516646, +1.8829583317205407, +1.4103556585412045, +1.8328350418962192, +1.2552200614113733, +1.2312785994936712, +1.5063263318091258, +1.3869989621518535, +1.1226358438033570, +1.0739831676432696, +1.7710833520161993, +1.9594555054831573, +1.3819433500737572, +1.9038399938282655, +1.4797182676715286, +1.2914393568965628, +1.1712438562157472, +1.1075424393471618, +1.0852246690343896, +1.3822127998923839, +1.5807960775852539, +1.2163730910104609, +1.4949042749736785, +1.1251891680059716, +1.7124277856266421, +1.2010881342390518, +1.4057747309049260, +1.7366525502941106, +1.1559608267837969, +1.4318752653067652, +1.0924559090976556, +1.5635450815725607, +1.9257549251038681, +1.6481771193647425, +1.3152518937577948, +1.0857502406980419, +1.0620156786464698, +1.0357964755880174, +1.7909958584763901, +1.2286861148179145, +1.6450043397788772, +1.3274370697794902, +1.3369119311785500, +1.9368915114189722, +1.5985244842721169, +1.9266590423859444, +1.5145188512987799, +1.3063359488505848, +1.8076311634489879, +1.4718141209145339, +1.7305495736582217, +1.2447466480277796, +1.5404704946657448, +1.0362844949083647, +1.6575217298323544, +1.7837068833262228, +1.1812762664236056, +1.2030778534813820, +1.0514264006555574, +1.9189115140043871, +1.4158360506220760, +1.5542201673083715, +1.7628336983734085, +1.3753585541638060, +1.8386756183956621, +1.7036488596389727, +1.6622126289316879, +1.0792659480492590, +1.7972519024657405, +1.2700819927928884, +1.9489552141017361, +1.1362576600395191, +1.4403327013948155, +1.2231620277489292, +1.2173111094143569, +1.9555138379514005, +1.9514335853550759, +1.4852979739226184, +1.9955856475595297, +1.8154785469383967, +1.4467161157358861, +1.9018604918563224, +1.4612981901748556

177

178atad = getFFTI(getFFTF(data))

179atad

180+1.2794065959500724, +1.6164873887951043, +1.5026561360201556, +1.9955458537025397, +1.6333342278468719, +1.3161912041016539, +1.9259511177612463, +1.9513441535420502, +1.8899770098385029, +1.3779584582707032, +1.8441829478190708, +1.3830657388813707, +1.9336125641516642, +1.8829583317205398, +1.4103556585412040, +1.8328350418962192, +1.2552200614113733, +1.2312785994936712, +1.5063263318091253, +1.3869989621518541, +1.1226358438033570, +1.0739831676432694, +1.7710833520161984, +1.9594555054831568, +1.3819433500737572, +1.9038399938282653, +1.4797182676715284, +1.2914393568965630, +1.1712438562157468, +1.1075424393471620, +1.0852246690343894, +1.3822127998923834, +1.5807960775852543, +1.2163730910104609, +1.4949042749736787, +1.1251891680059718, +1.7124277856266419, +1.2010881342390514, +1.4057747309049260, +1.7366525502941099, +1.1559608267837975, +1.4318752653067650, +1.0924559090976560, +1.5635450815725604, +1.9257549251038686, +1.6481771193647419, +1.3152518937577951, +1.0857502406980415, +1.0620156786464703, +1.0357964755880174, +1.7909958584763905, +1.2286861148179145, +1.6450043397788772, +1.3274370697794895, +1.3369119311785505, +1.9368915114189718, +1.5985244842721176, +1.9266590423859442, +1.5145188512987804, +1.3063359488505848, +1.8076311634489879, +1.4718141209145337, +1.7305495736582217, +1.2447466480277789, +1.5404704946657455, +1.0362844949083647, +1.6575217298323541, +1.7837068833262233, +1.1812762664236056, +1.2030778534813817, +1.0514264006555576, +1.9189115140043864, +1.4158360506220760, +1.5542201673083715, +1.7628336983734090, +1.3753585541638060, +1.8386756183956616, +1.7036488596389723, +1.6622126289316876, +1.0792659480492590, +1.7972519024657405, +1.2700819927928881, +1.9489552141017359, +1.1362576600395189, +1.4403327013948151, +1.2231620277489290, +1.2173111094143572, +1.9555138379513997, +1.9514335853550757, +1.4852979739226184, +1.9955856475595295, +1.8154785469383965, +1.4467161157358857, +1.9018604918563213, +1.4612981901748556, -0.11102230246251565E-15, +0.44408920985006262E-15, +0.33306690738754696E-15, -0.22204460492503131E-15, +0.0000000000000000, +0.44408920985006262E-15, +0.44408920985006262E-15, -0.33306690738754696E-15, -0.22204460492503131E-15, +0.22204460492503131E-15, +0.22204460492503131E-15, +0.33306690738754696E-15, -0.22204460492503131E-15, -0.33306690738754696E-15, +0.44408920985006262E-15, +0.22204460492503131E-15, +0.11102230246251565E-15, +0.33306690738754696E-15, +0.33306690738754696E-15, +0.0000000000000000, +0.33306690738754696E-15, +0.44408920985006262E-15, +0.77715611723760958E-15, +0.33306690738754696E-15, +0.33306690738754696E-15, +0.66613381477509392E-15, +0.22204460492503131E-15, +0.66613381477509392E-15, +0.22204460492503131E-15, -0.11102230246251565E-15, +0.44408920985006262E-15, +0.0000000000000000, +0.66613381477509392E-15

181reltol = sqrt(epsilon(1._TKC))

182reltol

183+0.14901161193847656E-7

184isClose(data, atad(1:size(data)), reltol = reltol)

185T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

186call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

187

188lenData = getUnifRand(5, 100)

189lenData

190+14

191data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

192data

193+1.35111229749948102622494684907133730, +1.72949973954530262286028020578919250, +1.58601823589362022297193001686859402, +1.72961583863525167818048497565593445, +1.12900514652495566425511804182772560, +1.15472179803925069855299055184258332, +1.33493724864071981464942510356830447, +1.71469651561978262909114066134074855, +1.04025095636204765775367516964554486, +1.53914750192949137263635340430969369, +1.55430439764180997458560042626784464, +1.96733257143729651351606148526883010, +1.24865518290515699076809993308904024, +1.79043353113029764694294755384861289

194

195atad = getFFTI(getFFTF(data))

196atad

197+1.35111229749948102622494684907133711, +1.72949973954530262286028020578919288, +1.58601823589362022297193001686859383, +1.72961583863525167818048497565593465, +1.12900514652495566425511804182772580, +1.15472179803925069855299055184258332, +1.33493724864071981464942510356830447, +1.71469651561978262909114066134074874, +1.04025095636204765775367516964554467, +1.53914750192949137263635340430969369, +1.55430439764180997458560042626784484, +1.96733257143729651351606148526883010, +1.24865518290515699076809993308904024, +1.79043353113029764694294755384861289, +0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34

198reltol = sqrt(epsilon(1._TKC))

199reltol

200+0.138777878078144567552953958511352539E-16

201isClose(data, atad(1:size(data)), reltol = reltol)

202T, T, T, T, T, T, T, T, T, T, T, T, T, T

203call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

204

205lenData = getUnifRand(5, 100)

206lenData

207+14

208data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

209data

210(+1.22222877, +0.322474480), (+1.46813262, +0.446938276), (+1.29725409, +0.955563426), (+1.52631056, +0.131936491), (+1.50368881, +0.507774055), (+1.28156257, +0.985126495), (+1.71087873, +0.830686390), (+1.86187434, +0.347499728), (+1.39052415, +0.757363677), (+1.35811424, +0.905575156), (+1.07144070, +0.940464616), (+1.43243980, +0.789492786), (+1.25547242, +0.147640824), (+1.90241444, +0.343061566)

211

212atad = getFFTI(getFFTF(data))

213atad

214(+1.22222877, +0.322474480), (+1.46813262, +0.446938336), (+1.29725420, +0.955563486), (+1.52631044, +0.131936640), (+1.50368893, +0.507774115), (+1.28156269, +0.985126555), (+1.71087885, +0.830686271), (+1.86187434, +0.347499639), (+1.39052415, +0.757363677), (+1.35811412, +0.905575216), (+1.07144082, +0.940464556), (+1.43243980, +0.789492607), (+1.25547254, +0.147640854), (+1.90241444, +0.343061626), (+0.178813934E-6, +0.119209290E-6), (+0.238418579E-6, +0.149011612E-6)

215reltol = sqrt(epsilon(1._TKC))

216reltol

217+0.345266977E-3

218isClose(data, atad(1:size(data)), reltol = reltol)

219T, T, T, T, T, T, T, T, T, T, T, T, T, T

220call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

221

222lenData = getUnifRand(5, 100)

223lenData

224+24

225data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

226data

227(+1.6910101905583974, +0.54838475721257773E-1), (+1.9080920123385825, +0.81431983838413857), (+1.2506179537016586, +0.31790113052473046), (+1.3685215630766214, +0.31886320515134625E-1), (+1.6249112564389501, +0.58475387360184983), (+1.1757805449173770, +0.82437788716416394), (+1.4201402156915792, +0.46967830894963281), (+1.8752466125718958, +0.60016781961269039), (+1.8122498482331526, +0.90449025825971063), (+1.8263510589688086, +0.31578735821384607), (+1.5755463311231521, +0.87162651105912814), (+1.5610986591972602, +0.41610547686856136), (+1.0986742281159081, +0.96541717012476780), (+1.1504370612326080, +0.32018357451301771), (+1.4775209498643314, +0.98609988631826917), (+1.6675853522143118, +0.74401394630422235), (+1.3101806848265150, +0.36666014379726253), (+1.5857996734021282, +0.54248126636007421E-1), (+1.0618734697398977, +0.41386534542081010), (+1.4097465170098848, +0.78320146263458734), (+1.7056727829914959, +0.10467402901717171), (+1.2294524612060540, +0.69949352538896714), (+1.4163477261208335, +0.22649470157294782), (+1.2096692552001227, +0.23138075498790545)

228

229atad = getFFTI(getFFTF(data))

230atad

231(+1.6910101905583976, +0.54838475721257829E-1), (+1.9080920123385821, +0.81431983838413868), (+1.2506179537016584, +0.31790113052473057), (+1.3685215630766212, +0.31886320515134792E-1), (+1.6249112564389503, +0.58475387360184972), (+1.1757805449173768, +0.82437788716416383), (+1.4201402156915792, +0.46967830894963264), (+1.8752466125718956, +0.60016781961269050), (+1.8122498482331526, +0.90449025825971041), (+1.8263510589688079, +0.31578735821384596), (+1.5755463311231519, +0.87162651105912770), (+1.5610986591972600, +0.41610547686856114), (+1.0986742281159081, +0.96541717012476758), (+1.1504370612326078, +0.32018357451301749), (+1.4775209498643314, +0.98609988631826884), (+1.6675853522143114, +0.74401394630422202), (+1.3101806848265152, +0.36666014379726225), (+1.5857996734021280, +0.54248126636007199E-1), (+1.0618734697398977, +0.41386534542081010), (+1.4097465170098848, +0.78320146263458712), (+1.7056727829914962, +0.10467402901717157), (+1.2294524612060538, +0.69949352538896670), (+1.4163477261208337, +0.22649470157294788), (+1.2096692552001227, +0.23138075498790517), (+0.44408920985006262E-15, +0.22204460492503131E-15), (+0.11102230246251565E-15, +0.27755575615628914E-16), (+0.22204460492503131E-15, +0.22204460492503131E-15), (+0.66613381477509392E-15, +0.0000000000000000), (+0.22204460492503131E-15, +0.16653345369377348E-15), (+0.44408920985006262E-15, +0.41633363423443370E-15), (+0.33306690738754696E-15, +0.44408920985006262E-15), (+0.66613381477509392E-15, +0.44408920985006262E-15)

232reltol = sqrt(epsilon(1._TKC))

233reltol

234+0.14901161193847656E-7

235isClose(data, atad(1:size(data)), reltol = reltol)

236T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

237call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

238

239lenData = getUnifRand(5, 100)

240lenData

241+68

242data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

243data

244(+1.84768885415151937109914647302577463, +0.735258355132314160167912706439040098), (+1.23954473036031133415374914155841051, +0.724484095977097134535699700035869193), (+1.28031155995728974521036457461132537, +0.533208212410530900028409856328502519), (+1.68811308867098527437659228314952709, +0.419035640487293496153318045177498160), (+1.50885805223373860544560068075681109, +0.683991950535662494813683946874353227), (+1.20915251510731474670873887238864016, +0.185691254684789511555666352458889897), (+1.56466593370960206177338321255276253, +0.667198787872130790459587289961617216), (+1.47082850548341247492602931993886512, +0.429591153272881033251780890620366256), (+1.32550457249707986274096993450247197, +0.319510818254367495391857827521204596), (+1.27970091747629697184452783126405094, +0.949133195726702265390618789621777323), (+1.49264230700235613621089407130920154, +0.378765502978602397790656713845209950), (+1.80371226679718350111523914974740375, +0.801112451318288935061819938523721475), (+1.22370912667866156936496500083379957, +0.520149553014459210724545113186355888E-1), (+1.50634841491861177616008610770363557, +0.413367431369773160795074243661280706), (+1.02454722067701908632323980584517538, +0.345358522524009960708269206616955442), (+1.46450192419234481891611281883443453, +0.875488253379602193246832467517056245), (+1.58982610878321149664267040899744024, +0.383670523229070509377620460956469838E-2), (+1.29027380441628987849205253645096816, +0.691975779794623505274386078749528685E-1), (+1.59660668734430832241398269513451793, +0.158263966186356962747885105428031072), (+1.13100003308219206491909450377091299, +0.551219328126192686849158126681873189), (+1.91969152773515916829002759639911707, +0.726558116514589523652970434212682274), (+1.99291630026450015211747384518209250, +0.291158592387064216821870517093060348), (+1.18619507880212360327997342561407738, +0.926063886492535851245170658435675408E-1), (+1.30971496152654376039225572972130223, +0.709223439535666593872702164324903769), (+1.32854622410681975464955990686110170, +0.125040599445752724820571031462156353), (+1.80855847229299587077037625227289597, +0.488081972746581873114065463119247038), (+1.32113562999445204034416843289415182, +0.130679831830660873146236891038454311), (+1.81315891287857528118822140451600129, +0.822412695045477755393650852800031648), (+1.35024569329668767156836388767083365, +0.816634681490885152818854086671458357), (+1.65952765154092009820900407409285893, +0.931974166521724002874782374947508903), (+1.64386718726691231448567973691394413, +0.498108210292985738785209083433228357), (+1.31351632495682875498361699147003134, +0.327510696114629703275187304474227507), (+1.30390639861147030156820487768957201, +0.311604174528578464030219287724817521), (+1.15905190637199581844332181978437284, +0.400964471656085732083496973364685384), (+1.82103488202617349747558618401512120, +0.414875052054940557770429210862211774), (+1.63941321996174260644565787377358135, +0.149279265409344700990098539407781205E-1), (+1.73965631965896246632902921800791574, +0.713686433945358353941796674970554296), (+1.61718936798984593868363410153165346, +0.375905220221307542515413795961754530), (+1.91231929345939248895185128283229601, +0.166454138544042808010098594873141123), (+1.03187242391251417299090702348259918, +0.810849258372623110848275333468631982), (+1.63609323477571142047256021777283990, +0.195754771432116781767024938364381561), (+1.77141860337079918460784353506866205, +0.769975446714881626977928024697608809E-1), (+1.97431841075438598098504611435243235, +0.900069193273259418148255969444479683E-1), (+1.87879106206993989481513201805094380, +0.496576200708871605840331735396583985), (+1.14321642108129702941469571554040572, +0.565322056242807613634718268192998332), (+1.30422308836500955115294898605346847, +0.577369824408130202375462468702501906), (+1.16244685589889683066934199516190904, +0.795273921470420671220082833156129741), (+1.48717722501135580508459442257324091, +0.911672684203699395998789487823124654), (+1.17123304264519569592435044521828338, +0.284927890041649147451622631306643004), (+1.59790567758552956073866191418956729, +0.624819436448853563982828441444011089), (+1.35529810045993021163652413590938754, +0.369127399019777100556430872923654432), (+1.79437256846921286195012985115073515, +0.424479596980267979836901636191855262), (+1.23192711225782210375528736731375212, +0.138132769082302427459676437441082664), (+1.92125735651491914041806210517364279, +0.936338566995178853166970056668764392), (+1.39531088094616359676686253222878388, +0.775851446865765441416702428143792036), (+1.69176756095498529749567723705132961, +0.736107944667882853724373176175249924), (+1.78606808042362901646170612403753907, +0.494697242474306160337843437488326739), (+1.13343383203798897723290620328644214, +0.700083830425920183933147449302880984), (+1.65905184812081429605567643536386448, +0.132099858933561408112170739556062172), (+1.28300995549188899033572886876814456, +0.697170288908027312795508763236463761E-1), (+1.63903849330945164018220547767870760, +0.681669093510471197188181398980182180), (+1.46460687368211131779771898009216731, +0.249338230337398943084454855268092048E-2), (+1.36522592776761962699936440204584524, +0.241084342165552861442732042285757838E-1), (+1.53287757394516709744222065503329063, +0.774402757442629663912056875419602792), (+1.56082308079205777500581570391999261, +0.285115069471651619673728631324719655), (+1.08912457912908726471127583639155199, +0.912526543077506210587161656029119511), (+1.27698543511444424978164488076924310, +0.666753071876159518118076420389744829), (+1.32262342570298999279704836503016792, +0.912752797320555331509291076260667705E-2)

245

246atad = getFFTI(getFFTF(data))

247atad

248(+1.84768885415151937109914647302577463, +0.735258355132314160167912706439040098), (+1.23954473036031133415374914155841032, +0.724484095977097134535699700035868808), (+1.28031155995728974521036457461132537, +0.533208212410530900028409856328502519), (+1.68811308867098527437659228314952748, +0.419035640487293496153318045177498304), (+1.50885805223373860544560068075681109, +0.683991950535662494813683946874353324), (+1.20915251510731474670873887238864016, +0.185691254684789511555666352458889536), (+1.56466593370960206177338321255276272, +0.667198787872130790459587289961617216), (+1.47082850548341247492602931993886531, +0.429591153272881033251780890620366063), (+1.32550457249707986274096993450247216, +0.319510818254367495391857827521204644), (+1.27970091747629697184452783126405113, +0.949133195726702265390618789621777515), (+1.49264230700235613621089407130920192, +0.378765502978602397790656713845209950), (+1.80371226679718350111523914974740433, +0.801112451318288935061819938523721764), (+1.22370912667866156936496500083379996, +0.520149553014459210724545113186355647E-1), (+1.50634841491861177616008610770363576, +0.413367431369773160795074243661280369), (+1.02454722067701908632323980584517576, +0.345358522524009960708269206616955539), (+1.46450192419234481891611281883443511, +0.875488253379602193246832467517056341), (+1.58982610878321149664267040899744024, +0.383670523229070509377620460956465023E-2), (+1.29027380441628987849205253645096835, +0.691975779794623505274386078749523389E-1), (+1.59660668734430832241398269513451812, +0.158263966186356962747885105428031121), (+1.13100003308219206491909450377091299, +0.551219328126192686849158126681873189), (+1.91969152773515916829002759639911707, +0.726558116514589523652970434212682081), (+1.99291630026450015211747384518209269, +0.291158592387064216821870517093060059), (+1.18619507880212360327997342561407757, +0.926063886492535851245170658435673482E-1), (+1.30971496152654376039225572972130242, +0.709223439535666593872702164324903673), (+1.32854622410681975464955990686110170, +0.125040599445752724820571031462156450), (+1.80855847229299587077037625227289636, +0.488081972746581873114065463119247038), (+1.32113562999445204034416843289415182, +0.130679831830660873146236891038454455), (+1.81315891287857528118822140451600167, +0.822412695045477755393650852800031840), (+1.35024569329668767156836388767083404, +0.816634681490885152818854086671458454), (+1.65952765154092009820900407409285931, +0.931974166521724002874782374947508999), (+1.64386718726691231448567973691394433, +0.498108210292985738785209083433228501), (+1.31351632495682875498361699147003172, +0.327510696114629703275187304474227507), (+1.30390639861147030156820487768957220, +0.311604174528578464030219287724817570), (+1.15905190637199581844332181978437304, +0.400964471656085732083496973364685288), (+1.82103488202617349747558618401512139, +0.414875052054940557770429210862211870), (+1.63941321996174260644565787377358154, +0.149279265409344700990098539407781205E-1), (+1.73965631965896246632902921800791613, +0.713686433945358353941796674970554296), (+1.61718936798984593868363410153165404, +0.375905220221307542515413795961754481), (+1.91231929345939248895185128283229640, +0.166454138544042808010098594873140883), (+1.03187242391251417299090702348259957, +0.810849258372623110848275333468632078), (+1.63609323477571142047256021777284028, +0.195754771432116781767024938364381753), (+1.77141860337079918460784353506866263, +0.769975446714881626977928024697609049E-1), (+1.97431841075438598098504611435243274, +0.900069193273259418148255969444481368E-1), (+1.87879106206993989481513201805094419, +0.496576200708871605840331735396584034), (+1.14321642108129702941469571554040611, +0.565322056242807613634718268192998428), (+1.30422308836500955115294898605346905, +0.577369824408130202375462468702502099), (+1.16244685589889683066934199516190942, +0.795273921470420671220082833156130029), (+1.48717722501135580508459442257324129, +0.911672684203699395998789487823124942), (+1.17123304264519569592435044521828357, +0.284927890041649147451622631306643100), (+1.59790567758552956073866191418956768, +0.624819436448853563982828441444011089), (+1.35529810045993021163652413590938754, +0.369127399019777100556430872923654432), (+1.79437256846921286195012985115073553, +0.424479596980267979836901636191855214), (+1.23192711225782210375528736731375250, +0.138132769082302427459676437441082424), (+1.92125735651491914041806210517364318, +0.936338566995178853166970056668764489), (+1.39531088094616359676686253222878407, +0.775851446865765441416702428143792132), (+1.69176756095498529749567723705133018, +0.736107944667882853724373176175250020), (+1.78606808042362901646170612403753945, +0.494697242474306160337843437488326931), (+1.13343383203798897723290620328644233, +0.700083830425920183933147449302881562), (+1.65905184812081429605567643536386448, +0.132099858933561408112170739556062293), (+1.28300995549188899033572886876814456, +0.697170288908027312795508763236463160E-1), (+1.63903849330945164018220547767870798, +0.681669093510471197188181398980182373), (+1.46460687368211131779771898009216789, +0.249338230337398943084454855268124548E-2), (+1.36522592776761962699936440204584563, +0.241084342165552861442732042285759102E-1), (+1.53287757394516709744222065503329140, +0.774402757442629663912056875419603177), (+1.56082308079205777500581570391999261, +0.285115069471651619673728631324719655), (+1.08912457912908726471127583639155218, +0.912526543077506210587161656029119896), (+1.27698543511444424978164488076924310, +0.666753071876159518118076420389745022), (+1.32262342570298999279704836503016811, +0.912752797320555331509291076260653261E-2), (+0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, +0.216667118743564033468797518540804323E-33), (+0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33), (-0.192592994438723585305597794258492732E-33, +0.240741243048404481631997242823115915E-33), (-0.288889491658085377958396691387739098E-33, -0.144444745829042688979198345693869549E-33), (-0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33), (-0.192592994438723585305597794258492732E-33, -0.722223729145213444895991728469347744E-34), (-0.481482486096808963263994485646231830E-33, -0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, -0.120370621524202240815998621411557957E-33), (-0.577778983316170755916793382775478196E-33, +0.240741243048404481631997242823115915E-33), (-0.385185988877447170611195588516985464E-33, -0.120370621524202240815998621411557957E-33), (-0.577778983316170755916793382775478196E-33, -0.240741243048404481631997242823115915E-33), (+0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-34), (-0.481482486096808963263994485646231830E-33, +0.144444745829042688979198345693869549E-33), (-0.385185988877447170611195588516985464E-33, -0.361111864572606722447995864234673872E-34), (-0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34), (+0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34), (-0.481482486096808963263994485646231830E-33, +0.722223729145213444895991728469347744E-34), (-0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34), (+0.00000000000000000000000000000000000, -0.144444745829042688979198345693869549E-33), (-0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33), (+0.00000000000000000000000000000000000, -0.252778305200824705713597104964271711E-33), (+0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34), (-0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34), (-0.385185988877447170611195588516985464E-33, +0.192592994438723585305597794258492732E-33), (-0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, +0.240741243048404481631997242823115915E-34), (+0.00000000000000000000000000000000000, -0.144444745829042688979198345693869549E-33), (-0.577778983316170755916793382775478196E-33, -0.722223729145213444895991728469347744E-34), (-0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, -0.722223729145213444895991728469347744E-34), (+0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-34), (-0.577778983316170755916793382775478196E-33, -0.962964972193617926527988971292463659E-34), (-0.288889491658085377958396691387739098E-33, +0.481482486096808963263994485646231830E-34), (-0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34), (-0.962964972193617926527988971292463659E-34, -0.204630056591143809387197656399648528E-33), (-0.577778983316170755916793382775478196E-33, -0.361111864572606722447995864234673872E-33), (-0.288889491658085377958396691387739098E-33, -0.120370621524202240815998621411557957E-33), (-0.288889491658085377958396691387739098E-33, -0.481482486096808963263994485646231830E-34), (-0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000), (-0.770371977754894341222391177033970927E-33, -0.288889491658085377958396691387739098E-33), (-0.288889491658085377958396691387739098E-33, -0.337037740267766274284796139952362281E-33), (-0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33), (-0.192592994438723585305597794258492732E-33, +0.240741243048404481631997242823115915E-34), (-0.674075480535532548569592279904724561E-33, -0.481482486096808963263994485646231830E-34), (-0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000), (-0.385185988877447170611195588516985464E-33, +0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33), (-0.866668474974256133875190074163217293E-33, -0.192592994438723585305597794258492732E-33), (+0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34), (-0.577778983316170755916793382775478196E-33, +0.481482486096808963263994485646231830E-34), (-0.288889491658085377958396691387739098E-33, -0.264815367353244929795196967105427506E-33), (-0.577778983316170755916793382775478196E-33, -0.433334237487128066937595037081608647E-33), (-0.192592994438723585305597794258492732E-33, -0.216667118743564033468797518540804323E-33), (+0.00000000000000000000000000000000000, -0.180555932286303361223997932117336936E-33), (-0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33), (-0.577778983316170755916793382775478196E-33, -0.565741921163750531835193520634322400E-33), (-0.481482486096808963263994485646231830E-33, -0.198611525514933697346397725329070630E-33), (-0.481482486096808963263994485646231830E-33, -0.433334237487128066937595037081608647E-33)

249reltol = sqrt(epsilon(1._TKC))

250reltol

251+0.138777878078144567552953958511352539E-16

252isClose(data, atad(1:size(data)), reltol = reltol)

253T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

254call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

255

256lenData = getUnifRand(5, 100)

257lenData

258+32

259data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

260data

261+1.80369115, +1.62928975, +1.80908751, +1.96911716, +1.04762149, +1.24404097, +1.49520218, +1.33093190, +1.59390342, +1.33123279, +1.40811539, +1.00593352, +1.14374459, +1.31568718, +1.09790707, +1.59261966, +1.52538109, +1.59105456, +1.60280275, +1.42321205, +1.44129837, +1.46284580, +1.32344568, +1.45188737, +1.57880855, +1.16895986, +1.27474165, +1.52594471, +1.62021136, +1.24452877, +1.20753956, +1.55680466

262

263atad = getFFTI(getFFTF(data))

264atad

265+1.80369127, +1.62928987, +1.80908751, +1.96911716, +1.04762137, +1.24404097, +1.49520206, +1.33093190, +1.59390342, +1.33123302, +1.40811551, +1.00593364, +1.14374459, +1.31568718, +1.09790695, +1.59261954, +1.52538121, +1.59105468, +1.60280275, +1.42321205, +1.44129813, +1.46284580, +1.32344556, +1.45188737, +1.57880843, +1.16896009, +1.27474177, +1.52594483, +1.62021124, +1.24452877, +1.20753944, +1.55680454

266reltol = sqrt(epsilon(1._TKC))

267reltol

268+0.345266977E-3

269isClose(data, atad(1:size(data)), reltol = reltol)

270T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

271call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

272

273lenData = getUnifRand(5, 100)

274lenData

275+76

276data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

277data

278+1.5460797413126603, +1.6944681875291967, +1.3744687113773451, +1.3237211537735976, +1.4020051629985284, +1.3990231190363729, +1.9306062052493078, +1.6485302032948612, +1.4601769818431634, +1.2072828953553270, +1.6148118634369819, +1.1679450201395669, +1.8197313934578063, +1.8321128078786593, +1.1232161815398669, +1.5186558600544893, +1.1822418250682596, +1.1144285524085991, +1.7939620414140571, +1.3945301048242702, +1.5679703475124254, +1.5667171308986325, +1.1891579013977491, +1.8825848576439601, +1.4852460265091247, +1.5026398736528390, +1.9039985226588405, +1.9462391773372263, +1.6532777878787361, +1.8886332603365190, +1.6647246626342960, +1.6902508601490300, +1.9715400769069220, +1.0548424315253726, +1.7837994318816186, +1.1044554212840478, +1.5301729025004196, +1.9598252595460615, +1.9630622032058400, +1.4029720748903416, +1.2972820243617638, +1.7763608239067716, +1.6639285479580588, +1.9315097706958941, +1.9578149048857658, +1.7191399529046105, +1.9399133893297980, +1.5086949118357147, +1.5815019921961959, +1.0402772109030247, +1.4975265086357550, +1.0466129587381210, +1.3645100390420670, +1.7280125540105269, +1.5842853041341645, +1.8693026183029742, +1.4780454806093615, +1.4511106335990727, +1.8427639139140639, +1.0431706005155705, +1.8704402825333180, +1.4730739760813725, +1.4745525735513669, +1.3780133297144621, +1.7031829904497604, +1.2132701677810902, +1.3049962742054213, +1.5839225750537194, +1.7712944337999033, +1.6775209043927091, +1.9692692489352501, +1.9108617682393296, +1.0508402259862244, +1.7589185588772271, +1.7079583020849143, +1.4632281049445295

279

280atad = getFFTI(getFFTF(data))

281atad

282+1.5460797413126603, +1.6944681875291969, +1.3744687113773453, +1.3237211537735978, +1.4020051629985275, +1.3990231190363733, +1.9306062052493076, +1.6485302032948614, +1.4601769818431631, +1.2072828953553272, +1.6148118634369817, +1.1679450201395676, +1.8197313934578063, +1.8321128078786597, +1.1232161815398665, +1.5186558600544899, +1.1822418250682596, +1.1144285524085995, +1.7939620414140571, +1.3945301048242706, +1.5679703475124249, +1.5667171308986325, +1.1891579013977487, +1.8825848576439603, +1.4852460265091243, +1.5026398736528397, +1.9039985226588396, +1.9462391773372270, +1.6532777878787355, +1.8886332603365190, +1.6647246626342951, +1.6902508601490309, +1.9715400769069222, +1.0548424315253726, +1.7837994318816190, +1.1044554212840478, +1.5301729025004200, +1.9598252595460610, +1.9630622032058400, +1.4029720748903420, +1.2972820243617640, +1.7763608239067719, +1.6639285479580588, +1.9315097706958948, +1.9578149048857658, +1.7191399529046101, +1.9399133893297977, +1.5086949118357147, +1.5815019921961961, +1.0402772109030245, +1.4975265086357550, +1.0466129587381210, +1.3645100390420675, +1.7280125540105264, +1.5842853041341645, +1.8693026183029731, +1.4780454806093615, +1.4511106335990727, +1.8427639139140641, +1.0431706005155705, +1.8704402825333180, +1.4730739760813720, +1.4745525735513669, +1.3780133297144617, +1.7031829904497608, +1.2132701677810902, +1.3049962742054215, +1.5839225750537196, +1.7712944337999037, +1.6775209043927086, +1.9692692489352506, +1.9108617682393292, +1.0508402259862242, +1.7589185588772274, +1.7079583020849143, +1.4632281049445293, +0.44408920985006262E-15, -0.22204460492503131E-15, +0.55511151231257827E-15, -0.66613381477509392E-15, +0.22204460492503131E-15, -0.55511151231257827E-15, +0.22204460492503131E-15, -0.44408920985006262E-15, +0.77715611723760958E-15, +0.22204460492503131E-15, +0.44408920985006262E-15, -0.77715611723760958E-15, +0.55511151231257827E-15, -0.77715611723760958E-15, +0.66613381477509392E-15, -0.99920072216264089E-15, +0.66613381477509392E-15, -0.11102230246251565E-15, +0.55511151231257827E-15, -0.11102230246251565E-15, -0.11102230246251565E-15, +0.0000000000000000, +0.33306690738754696E-15, +0.0000000000000000, -0.22204460492503131E-15, +0.44408920985006262E-15, +0.33306690738754696E-15, +0.33306690738754696E-15, -0.22204460492503131E-15, -0.22204460492503131E-15, +0.22204460492503131E-15, -0.44408920985006262E-15, +0.0000000000000000, +0.77715611723760958E-15, -0.22204460492503131E-15, +0.33306690738754696E-15, +0.0000000000000000, +0.11102230246251565E-15, +0.33306690738754696E-15, +0.11102230246251565E-15, -0.11102230246251565E-15, +0.77715611723760958E-15, -0.11102230246251565E-15, +0.55511151231257827E-15, +0.0000000000000000, +0.33306690738754696E-15, +0.11102230246251565E-15, +0.44408920985006262E-15, -0.11102230246251565E-15, +0.99920072216264089E-15, -0.44408920985006262E-15, +0.16653345369377348E-14

283reltol = sqrt(epsilon(1._TKC))

284reltol

285+0.14901161193847656E-7

286isClose(data, atad(1:size(data)), reltol = reltol)

287T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

288call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

289

290lenData = getUnifRand(5, 100)

291lenData

292+14

293data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

294data

295+1.15955712723586914308277905639165620, +1.67595932952746648708345151767928997, +1.67400718528323865352312752442037678, +1.36325393034120280405613204482956925, +1.54494755576514946469363446761552195, +1.70629490778560568136269493578647926, +1.44417642506869133494172021723414826, +1.06853414670445653033698071611136969, +1.88021012359267984486545515820966278, +1.33219708096307619536854641090577217, +1.27518580909075222844218740202339883, +1.07698389829195991553642243745939533, +1.25106663832897375943130871064762270, +1.57235605494367225713018723574732563

296

297atad = getFFTI(getFFTF(data))

298atad

299+1.15955712723586914308277905639165600, +1.67595932952746648708345151767928997, +1.67400718528323865352312752442037678, +1.36325393034120280405613204482956925, +1.54494755576514946469363446761552176, +1.70629490778560568136269493578647926, +1.44417642506869133494172021723414807, +1.06853414670445653033698071611136969, +1.88021012359267984486545515820966240, +1.33219708096307619536854641090577198, +1.27518580909075222844218740202339883, +1.07698389829195991553642243745939552, +1.25106663832897375943130871064762232, +1.57235605494367225713018723574732563, +0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000

300reltol = sqrt(epsilon(1._TKC))

301reltol

302+0.138777878078144567552953958511352539E-16

303isClose(data, atad(1:size(data)), reltol = reltol)

304T, T, T, T, T, T, T, T, T, T, T, T, T, T

305call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

306

307lenData = getUnifRand(5, 100)

308lenData

309+44

310data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

311data

312(+1.33651853, +0.744751513), (+1.78674960, +0.153236449), (+1.03174591, +0.385828018), (+1.83185101, +0.450608730E-1), (+1.02368546, +0.975861728), (+1.80043268, +0.693085372), (+1.83593488, +0.396998227), (+1.11288905, +0.424928367), (+1.88893437, +0.332513392), (+1.69296575, +0.276142120), (+1.30657697, +0.223959148), (+1.67438221, +0.332094789), (+1.58134246, +0.492970049), (+1.29119837, +0.350729287), (+1.43205857, +0.110673666), (+1.50688219, +0.639837503), (+1.92032242, +0.510170698), (+1.11404634, +0.897532582), (+1.45885158, +0.442465782), (+1.14651513, +0.943187773), (+1.33711958, +0.879061580), (+1.98971379, +0.568399012), (+1.83841932, +0.994254768), (+1.50748324, +0.801500678), (+1.68373263, +0.441849291), (+1.58993459, +0.596161425), (+1.86330521, +0.469404519), (+1.17462802, +0.843584538E-3), (+1.65797520, +0.755328357), (+1.96495962, +0.135090053), (+1.80571437, +0.213149369), (+1.27237630, +0.773994029), (+1.67767847, +0.302714050), (+1.09663892, +0.551736474), (+1.26870370, +0.874140441), (+1.91453147, +0.501988828), (+1.06421781, +0.353138089), (+1.81092668, +0.509081960), (+1.17722356, +0.581889451), (+1.93320739, +0.325852036E-1), (+1.28324509, +0.701693475), (+1.60723448, +0.695780456), (+1.20311546, +0.161998153), (+1.44008327, +0.753582358)

313

314atad = getFFTI(getFFTF(data))

315atad

316(+1.33651853, +0.744751573), (+1.78674948, +0.153236449), (+1.03174567, +0.385827869), (+1.83185053, +0.450608134E-1), (+1.02368557, +0.975861609), (+1.80043268, +0.693085313), (+1.83593464, +0.396998048), (+1.11288893, +0.424928308), (+1.88893461, +0.332513541), (+1.69296587, +0.276142180), (+1.30657697, +0.223959208), (+1.67438209, +0.332094848), (+1.58134246, +0.492970347), (+1.29119825, +0.350729465), (+1.43205845, +0.110673741), (+1.50688219, +0.639837503), (+1.92032242, +0.510170639), (+1.11404634, +0.897532523), (+1.45885158, +0.442465603), (+1.14651513, +0.943187714), (+1.33711958, +0.879061580), (+1.98971391, +0.568399072), (+1.83841920, +0.994254649), (+1.50748312, +0.801500559), (+1.68373263, +0.441849291), (+1.58993447, +0.596161485), (+1.86330521, +0.469404489), (+1.17462790, +0.843718648E-3), (+1.65797496, +0.755328417), (+1.96495938, +0.135090321), (+1.80571401, +0.213149369), (+1.27237582, +0.773993909), (+1.67767835, +0.302713990), (+1.09663904, +0.551736474), (+1.26870394, +0.874140382), (+1.91453123, +0.501988709), (+1.06421793, +0.353138149), (+1.81092668, +0.509081960), (+1.17722344, +0.581889510), (+1.93320692, +0.325852484E-1), (+1.28324509, +0.701693296), (+1.60723436, +0.695780396), (+1.20311570, +0.161998093), (+1.44008338, +0.753582060), (+0.596046448E-7, -0.178813934E-6), (+0.119209290E-6, -0.208616257E-6), (+0.00000000, -0.130385160E-6), (+0.119209290E-6, +0.119209290E-6), (+0.00000000, +0.596046448E-7), (+0.596046448E-7, +0.00000000), (+0.178813934E-6, +0.253319740E-6), (+0.178813934E-6, +0.208616257E-6), (+0.119209290E-6, +0.298023224E-7), (+0.00000000, -0.208616257E-6), (+0.00000000, +0.596046448E-7), (-0.119209290E-6, +0.208616257E-6), (+0.357627869E-6, -0.745058060E-7), (+0.119209290E-6, -0.894069672E-7), (+0.357627869E-6, +0.298023224E-7), (+0.119209290E-6, +0.104308128E-6), (+0.357627869E-6, -0.298023224E-7), (+0.119209290E-6, -0.596046448E-7), (+0.00000000, -0.119209290E-6), (+0.596046448E-7, +0.178813934E-6)

317reltol = sqrt(epsilon(1._TKC))

318reltol

319+0.345266977E-3

320isClose(data, atad(1:size(data)), reltol = reltol)

321T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

322call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

323

324lenData = getUnifRand(5, 100)

325lenData

326+73

327data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

328data

329(+1.5415678167061317, +0.36234755049626222), (+1.0050032840398235, +0.65952830917089311), (+1.2567028703612952, +0.85088988190927073), (+1.3964725425332782, +0.47666317395161251E-1), (+1.5715203128865294, +0.79268398662969786), (+1.3975571289952797, +0.20215246326652514), (+1.6462283186400561, +0.93789122986445739), (+1.8976471205885304, +0.82743263617666996), (+1.5453421237260472, +0.54610733909500220E-1), (+1.9071394809802353, +0.86159062033544087), (+1.8316336600729621, +0.33912936712065633E-1), (+1.7332831016585608, +0.31791851281550498), (+1.7204527908947593, +0.34721341676794792), (+1.8472940507345363, +0.83400949619315801), (+1.1189879984172326, +0.42099550029751853), (+1.3063203799052854, +0.12626213394262475), (+1.6095981163031858, +0.40701750813352500), (+1.8010103641619586, +0.84930332828789989), (+1.3192187236299429, +0.77770085033358083), (+1.5485224300737226, +0.32052868569145720), (+1.9859951234034163, +0.25759455487289251), (+1.0227799197104614, +0.94898756407822860), (+1.2617315696671212, +0.86410288403101099), (+1.6012426918058251, +0.72139959265152664), (+1.9897554351990632, +0.77621210363695381), (+1.3652549112200856, +0.47434363980843164), (+1.9602924033044595, +0.47036038178621231), (+1.9153255421609305, +0.66101766688886665), (+1.1571528140291427, +0.47344112606763744), (+1.3457505552536597, +0.98466905890526613), (+1.9677131181300096, +0.72259509159196156), (+1.4707490001973436, +0.92464285316594685), (+1.8355483468613274, +0.20507082190329307), (+1.5117669372666005, +0.10938025851692290), (+1.3153940035257237, +0.70559640669916357), (+1.8470418367413992, +0.58642942946647159), (+1.7507055107476237, +0.73241710850027741), (+1.8241510617209382, +0.95446935586345916), (+1.4421034002860844, +0.51818738423402877), (+1.0576106073347225, +0.27832324699557565), (+1.5439725686645911, +0.37664681442775627), (+1.5917178840988255, +0.70216726342490210), (+1.2085607282086261, +0.18408309641365739), (+1.4552816675882760, +0.14881803552707806), (+1.8295281192682928, +0.32820098604310288), (+1.7059766523256077, +0.17030084770700893E-1), (+1.0253435970721245, +0.70712658076862822), (+1.8382276259058594, +0.96538576292977052), (+1.3365668930876704, +0.63248941916328039), (+1.2889928420566357, +0.31099039072802637), (+1.0059731343270237, +0.49098894007234728), (+1.8317682492045799, +0.36462786917602330), (+1.4048550218788622, +0.13954316877572526), (+1.0519487302915485, +0.23409642266657127), (+1.9475495256742812, +0.64804831099759963), (+1.4881553893667312, +0.29773013485849897), (+1.3764495320918040, +0.62906949527304779), (+1.9488475156786209, +0.28090671953674640), (+1.2508846235420030, +0.83299295538068885), (+1.6714059196183557, +0.40247449228982113), (+1.9884366719794850, +0.90731105528235767), (+1.9290246572990171, +0.71275386576789435), (+1.3781617209268835, +0.24669845526011269), (+1.0780704676629818, +0.23014233331500189), (+1.8075728952562220, +0.93269506772337329), (+1.6557502607094969, +0.76435722351603796), (+1.4237233194883354, +0.63351953847337272), (+1.6011865167843529, +0.72009408900253702), (+1.6283601584597251, +0.79099526513545959), (+1.1023546168908984, +0.77169876779673896), (+1.7676340777164183, +0.46831005920459534), (+1.0211948596037974, +0.68110511517314143), (+1.5133339306571241, +0.61717242367487524)

330

331atad = getFFTI(getFFTF(data))

332atad

333(+1.5415678167061315, +0.36234755049626216), (+1.0050032840398238, +0.65952830917089322), (+1.2567028703612952, +0.85088988190927084), (+1.3964725425332785, +0.47666317395161473E-1), (+1.5715203128865292, +0.79268398662969719), (+1.3975571289952802, +0.20215246326652536), (+1.6462283186400561, +0.93789122986445728), (+1.8976471205885304, +0.82743263617667029), (+1.5453421237260470, +0.54610733909500109E-1), (+1.9071394809802356, +0.86159062033544109), (+1.8316336600729624, +0.33912936712066022E-1), (+1.7332831016585613, +0.31791851281550537), (+1.7204527908947593, +0.34721341676794781), (+1.8472940507345359, +0.83400949619315812), (+1.1189879984172322, +0.42099550029751875), (+1.3063203799052854, +0.12626213394262534), (+1.6095981163031858, +0.40701750813352500), (+1.8010103641619586, +0.84930332828790001), (+1.3192187236299429, +0.77770085033358072), (+1.5485224300737226, +0.32052868569145754), (+1.9859951234034157, +0.25759455487289229), (+1.0227799197104614, +0.94898756407822837), (+1.2617315696671207, +0.86410288403101099), (+1.6012426918058251, +0.72139959265152642), (+1.9897554351990627, +0.77621210363695348), (+1.3652549112200854, +0.47434363980843153), (+1.9602924033044589, +0.47036038178621253), (+1.9153255421609301, +0.66101766688886698), (+1.1571528140291425, +0.47344112606763727), (+1.3457505552536593, +0.98466905890526579), (+1.9677131181300089, +0.72259509159196145), (+1.4707490001973433, +0.92464285316594674), (+1.8355483468613270, +0.20507082190329273), (+1.5117669372666005, +0.10938025851692294), (+1.3153940035257237, +0.70559640669916324), (+1.8470418367413997, +0.58642942946647159), (+1.7507055107476237, +0.73241710850027708), (+1.8241510617209382, +0.95446935586345893), (+1.4421034002860846, +0.51818738423402833), (+1.0576106073347225, +0.27832324699557515), (+1.5439725686645906, +0.37664681442775605), (+1.5917178840988255, +0.70216726342490210), (+1.2085607282086259, +0.18408309641365722), (+1.4552816675882760, +0.14881803552707792), (+1.8295281192682926, +0.32820098604310283), (+1.7059766523256075, +0.17030084770700921E-1), (+1.0253435970721245, +0.70712658076862778), (+1.8382276259058594, +0.96538576292976996), (+1.3365668930876704, +0.63248941916328016), (+1.2889928420566354, +0.31099039072802609), (+1.0059731343270237, +0.49098894007234706), (+1.8317682492045799, +0.36462786917602302), (+1.4048550218788620, +0.13954316877572540), (+1.0519487302915482, +0.23409642266657110), (+1.9475495256742807, +0.64804831099759896), (+1.4881553893667312, +0.29773013485849836), (+1.3764495320918038, +0.62906949527304801), (+1.9488475156786207, +0.28090671953674640), (+1.2508846235420026, +0.83299295538068852), (+1.6714059196183557, +0.40247449228982068), (+1.9884366719794846, +0.90731105528235734), (+1.9290246572990162, +0.71275386576789379), (+1.3781617209268830, +0.24669845526011225), (+1.0780704676629815, +0.23014233331500122), (+1.8075728952562218, +0.93269506772337341), (+1.6557502607094967, +0.76435722351603830), (+1.4237233194883356, +0.63351953847337239), (+1.6011865167843529, +0.72009408900253702), (+1.6283601584597251, +0.79099526513545959), (+1.1023546168908984, +0.77169876779673863), (+1.7676340777164186, +0.46831005920459479), (+1.0211948596037974, +0.68110511517314098), (+1.5133339306571236, +0.61717242367487590), (-0.44408920985006262E-15, -0.38857805861880479E-15), (+0.22204460492503131E-15, -0.49960036108132044E-15), (-0.22204460492503131E-15, -0.49960036108132044E-15), (+0.11102230246251565E-15, +0.11102230246251565E-15), (+0.33306690738754696E-15, -0.27755575615628914E-15), (+0.11102230246251565E-15, -0.33306690738754696E-15), (+0.33306690738754696E-15, -0.52735593669694936E-15), (-0.11102230246251565E-15, +0.83266726846886741E-16), (+0.22204460492503131E-15, -0.22204460492503131E-15), (+0.33306690738754696E-15, +0.55511151231257827E-16), (+0.11102230246251565E-15, -0.55511151231257827E-15), (+0.22204460492503131E-15, +0.24980018054066022E-15), (+0.33306690738754696E-15, +0.22204460492503131E-15), (+0.22204460492503131E-15, +0.55511151231257827E-16), (+0.0000000000000000, +0.0000000000000000), (+0.0000000000000000, +0.22204460492503131E-15), (+0.33306690738754696E-15, -0.27755575615628914E-16), (+0.22204460492503131E-15, -0.19428902930940239E-15), (+0.22204460492503131E-15, -0.38857805861880479E-15), (+0.22204460492503131E-15, +0.11102230246251565E-15), (+0.77715611723760958E-15, -0.55511151231257827E-16), (+0.0000000000000000, +0.22204460492503131E-15), (+0.22204460492503131E-15, +0.0000000000000000), (-0.11102230246251565E-15, +0.31918911957973251E-15), (+0.11102230246251565E-15, +0.69388939039072284E-16), (+0.22204460492503131E-15, +0.22204460492503131E-15), (+0.11102230246251565E-15, -0.55511151231257827E-16), (-0.33306690738754696E-15, +0.44408920985006262E-15), (+0.11102230246251565E-15, +0.16653345369377348E-15), (+0.11102230246251565E-15, +0.38857805861880479E-15), (-0.11102230246251565E-15, +0.27755575615628914E-15), (-0.11102230246251565E-15, +0.16653345369377348E-15), (+0.22204460492503131E-15, -0.22204460492503131E-15), (+0.22204460492503131E-15, -0.16653345369377348E-15), (+0.11102230246251565E-15, -0.24980018054066022E-15), (+0.22204460492503131E-15, +0.16653345369377348E-15), (+0.33306690738754696E-15, +0.13877787807814457E-15), (-0.11102230246251565E-15, +0.33306690738754696E-15), (-0.11102230246251565E-15, +0.22204460492503131E-15), (-0.11102230246251565E-15, +0.16653345369377348E-15), (+0.55511151231257827E-15, +0.27755575615628914E-15), (+0.33306690738754696E-15, +0.19428902930940239E-15), (+0.33306690738754696E-15, +0.27755575615628914E-15), (+0.22204460492503131E-15, +0.13877787807814457E-15), (+0.44408920985006262E-15, +0.33306690738754696E-15), (+0.0000000000000000, +0.88817841970012523E-15), (+0.33306690738754696E-15, +0.77715611723760958E-15), (+0.22204460492503131E-15, -0.55511151231257827E-16), (+0.66613381477509392E-15, +0.19428902930940239E-15), (+0.44408920985006262E-15, +0.27755575615628914E-15), (+0.33306690738754696E-15, +0.47184478546569153E-15), (+0.11102230246251565E-15, +0.22204460492503131E-15), (+0.55511151231257827E-15, +0.66613381477509392E-15), (-0.33306690738754696E-15, +0.79103390504542404E-15), (+0.33306690738754696E-15, +0.81878948066105295E-15)

334reltol = sqrt(epsilon(1._TKC))

335reltol

336+0.14901161193847656E-7

337isClose(data, atad(1:size(data)), reltol = reltol)

338T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

339call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

340

341lenData = getUnifRand(5, 100)

342lenData

343+6

344data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

345data

346(+1.53139546414541273992086572384318552, +0.897134738694609432291284516494980779), (+1.06290459127854848157803979933114830, +0.571973353059333914144679497764258765), (+1.86142578089080724082666828584706362, +0.570470723459893951346270209705597625E-1), (+1.47791808976542965551621801138161566, +0.919474113981226906588247924847037659E-1), (+1.43036124354392550703645685610992819, +0.733852914025405587181296217288624789E-1), (+1.68491904376829211116756692695646075, +0.979816664604878040938272249293916468)

347

348atad = getFFTI(getFFTF(data))

349atad

350(+1.53139546414541273992086572384318552, +0.897134738694609432291284516494980683), (+1.06290459127854848157803979933114850, +0.571973353059333914144679497764258765), (+1.86142578089080724082666828584706362, +0.570470723459893951346270209705597565E-1), (+1.47791808976542965551621801138161585, +0.919474113981226906588247924847037659E-1), (+1.43036124354392550703645685610992819, +0.733852914025405587181296217288625270E-1), (+1.68491904376829211116756692695646113, +0.979816664604878040938272249293916468), (+0.962964972193617926527988971292463659E-34, +0.601853107621011204079993107057789787E-35), (+0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000)

351reltol = sqrt(epsilon(1._TKC))

352reltol

353+0.138777878078144567552953958511352539E-16

354isClose(data, atad(1:size(data)), reltol = reltol)

355T, T, T, T, T, T

356call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

357

358lenData = getUnifRand(5, 100)

359lenData

360+16

361data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

362data

363+1.09256279, +1.15619195, +1.69624877, +1.16077733, +1.16594839, +1.90416062, +1.56457520, +1.74729466, +1.86288071, +1.06259716, +1.72623587, +1.67645550, +1.10760093, +1.19008505, +1.96723735, +1.10434389

364

365atad = getFFTI(getFFTF(data))

366atad

367+1.09256268, +1.15619206, +1.69624865, +1.16077745, +1.16594827, +1.90416050, +1.56457531, +1.74729466, +1.86288071, +1.06259727, +1.72623575, +1.67645538, +1.10760081, +1.19008517, +1.96723735, +1.10434389

368reltol = sqrt(epsilon(1._TKC))

369reltol

370+0.345266977E-3

371isClose(data, atad(1:size(data)), reltol = reltol)

372T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

373call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

374

375lenData = getUnifRand(5, 100)

376lenData

377+91

378data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

379data

380+1.5326377185684084, +1.9170895778463941, +1.6773269261893207, +1.3181695760364243, +1.6678255648985949, +1.7840393125169010, +1.2792754080580233, +1.5027232248191567, +1.2525510986225046, +1.6280420426266837, +1.5802105726771603, +1.0528857656881854, +1.9012338819654577, +1.4944182640753956, +1.7333125385233203, +1.5718106186042335, +1.1711136444751216, +1.0634068285862897, +1.6380249515090683, +1.2945309080188911, +1.6843143940535614, +1.1940363650665364, +1.4154944349573850, +1.2370830645200479, +1.0395888419246460, +1.9739091990546407, +1.7407509767985843, +1.1815993935149036, +1.4637135507388817, +1.6651666580716085, +1.0942794586729834, +1.9342807749470992, +1.2674418416711246, +1.4123573990026037, +1.2880158196015201, +1.4071314746307702, +1.5369574420382202, +1.9604734858495165, +1.9336452518523282, +1.4115769717307713, +1.0344819279032105, +1.2518267437606996, +1.8578274642673978, +1.5900191652081159, +1.6403981732063351, +1.1835538677556130, +1.5583536286964943, +1.2767624855207691, +1.8670380966344227, +1.0112291500354602, +1.2300103697749991, +1.7503406608001602, +1.4417258496342042, +1.6796176734528898, +1.1125502209816780, +1.4824567017325014, +1.4646482153645310, +1.4535502660473507, +1.0236043478063381, +1.8814892346148127, +1.9303420625608974, +1.8794406765743739, +1.1521808342773481, +1.8049321135220047, +1.5278740539178997, +1.8433227874607083, +1.7043583922635936, +1.9223126165476283, +1.7886200049892413, +1.7271559118704691, +1.5633348459709353, +1.7494635153400595, +1.7267408751529609, +1.6883335033943794, +1.5898894023036019, +1.6111503049731586, +1.3132939862756015, +1.8694808607395992, +1.9022182528855951, +1.8366587655725823, +1.9873459706956362, +1.5784731663220770, +1.3433967370962114, +1.0723490165758238, +1.0020726473749495, +1.5713227294346033, +1.9718684458250726, +1.7217640498085300, +1.1163004974762769, +1.3506374886994710, +1.6678213784721165

381

382atad = getFFTI(getFFTF(data))

383atad

384+1.5326377185684086, +1.9170895778463939, +1.6773269261893211, +1.3181695760364245, +1.6678255648985945, +1.7840393125169012, +1.2792754080580226, +1.5027232248191569, +1.2525510986225046, +1.6280420426266835, +1.5802105726771605, +1.0528857656881847, +1.9012338819654571, +1.4944182640753956, +1.7333125385233199, +1.5718106186042333, +1.1711136444751213, +1.0634068285862894, +1.6380249515090679, +1.2945309080188907, +1.6843143940535610, +1.1940363650665362, +1.4154944349573844, +1.2370830645200477, +1.0395888419246460, +1.9739091990546407, +1.7407509767985840, +1.1815993935149036, +1.4637135507388808, +1.6651666580716087, +1.0942794586729827, +1.9342807749470992, +1.2674418416711251, +1.4123573990026035, +1.2880158196015206, +1.4071314746307695, +1.5369574420382204, +1.9604734858495161, +1.9336452518523282, +1.4115769717307711, +1.0344819279032107, +1.2518267437606991, +1.8578274642673982, +1.5900191652081155, +1.6403981732063349, +1.1835538677556121, +1.5583536286964945, +1.2767624855207687, +1.8670380966344229, +1.0112291500354602, +1.2300103697749993, +1.7503406608001599, +1.4417258496342045, +1.6796176734528894, +1.1125502209816782, +1.4824567017325014, +1.4646482153645313, +1.4535502660473503, +1.0236043478063386, +1.8814892346148122, +1.9303420625608974, +1.8794406765743732, +1.1521808342773483, +1.8049321135220038, +1.5278740539179001, +1.8433227874607081, +1.7043583922635936, +1.9223126165476283, +1.7886200049892416, +1.7271559118704687, +1.5633348459709349, +1.7494635153400588, +1.7267408751529614, +1.6883335033943789, +1.5898894023036019, +1.6111503049731586, +1.3132939862756015, +1.8694808607395983, +1.9022182528855947, +1.8366587655725821, +1.9873459706956362, +1.5784731663220763, +1.3433967370962112, +1.0723490165758234, +1.0020726473749502, +1.5713227294346028, +1.9718684458250728, +1.7217640498085292, +1.1163004974762771, +1.3506374886994705, +1.6678213784721168, -0.33306690738754696E-15, +0.11102230246251565E-14, -0.22204460492503131E-15, +0.13322676295501878E-14, -0.44408920985006262E-15, +0.44408920985006262E-15, -0.33306690738754696E-15, +0.0000000000000000, -0.55511151231257827E-15, +0.33306690738754696E-15, +0.55511151231257827E-15, +0.44408920985006262E-15, +0.44408920985006262E-15, +0.44408920985006262E-15, +0.0000000000000000, -0.11102230246251565E-15, -0.55511151231257827E-15, +0.33306690738754696E-15, +0.55511151231257827E-15, +0.44408920985006262E-15, +0.11102230246251565E-15, +0.22204460492503131E-15, +0.0000000000000000, +0.22204460492503131E-15, -0.44408920985006262E-15, +0.22204460492503131E-15, +0.44408920985006262E-15, +0.66613381477509392E-15, +0.55511151231257827E-15, +0.66613381477509392E-15, +0.0000000000000000, +0.11102230246251565E-15, -0.55511151231257827E-15, -0.33306690738754696E-15, +0.99920072216264089E-15, +0.0000000000000000, +0.99920072216264089E-15

385reltol = sqrt(epsilon(1._TKC))

386reltol

387+0.14901161193847656E-7

388isClose(data, atad(1:size(data)), reltol = reltol)

389T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

390call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

391

392lenData = getUnifRand(5, 100)

393lenData

394+96

395data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

396data

397+1.88736100427450636683038317227664562, +1.59252156099734705787551445992377543, +1.88314090947490587452804036092897847, +1.44698153549626379469795592156035645, +1.79919868967311949778544152489999148, +1.14485312648699593552770984827858438, +1.35689235769607890840869226409640454, +1.40591911561758017751980442858580854, +1.85790989630439721233838566719477944, +1.61446440013969741195227375435198564, +1.28348519655314974186759948265709505, +1.92682867741969713035416509953888913, +1.47122811847896011389868405770162499, +1.69168973718173404766905804539208684, +1.52733156618419883822611742200867289, +1.84597397126664572012674702984146588, +1.84994090985193417626174082484988816, +1.63108960810687176029552556525332957, +1.31842134798822198240801772191978408, +1.49689062198638057215910278680183717, +1.32256207237297367928481569228909442, +1.43934425361107907857531070690233879, +1.86187469485424038452541716124836026, +1.71067657647650326645550595422006281, +1.93050461876792932270736303918102830, +1.57667215217752795823054519751617777, +1.19114935486138511223948373917061019, +1.82041512769943594452257711986134180, +1.12671637022614855708948119157634413, +1.17731424685055823811796836520241668, +1.33690578512664712195773019186252423, +1.75319982662366546768747822458098449, +1.48090766250005853464961512407577384, +1.45278285918626403325164045620961014, +1.25934995677827376641554843375509105, +1.83396434163497546204662955532377662, +1.98370189721585033095870216428808192, +1.41749054586584955957897708366306946, +1.53009927494198598347735748336944099, +1.50551121853959406209723098151096985, +1.03353069671567435368992089943521041, +1.95113092062341342418273357283523049, +1.35374354428180272872741570939725303, +1.99528962995434272422037267024221257, +1.16372046919446722471547253218383497, +1.55408641194353932976955041314218826, +1.78048451586437551948436528892255935, +1.95805029109690875788832914965190307, +1.03838581985692511124122834344145623, +1.31527218240771059888299941254621905, +1.25340754179696127660151757581786524, +1.20783860926428581477837357324163141, +1.12019825762479615113440152454520826, +1.49228614372262874279859125255716864, +1.68116142270574062164082867139474069, +1.08383585576413237381264992097181426, +1.11189550443415907337694427186809560, +1.19956225574600167503631963642343838, +1.77680870252383378830228982657230070, +1.19984946139084687868734022246695982, +1.50145520483461099190306458518600561, +1.22470395569912881567696480094197049, +1.99314200530323982694425646119458873, +1.81770259523911383216202704567282527, +1.21252592387563144126635736342357118, +1.95764561328102901419002525243424226, +1.41060837653847730468920567268307171, +1.20523758276798010925593596855662867, +1.59447180523510220978028437472257457, +1.29102645772709903732044946492148101, +1.46817811547900135651928021635130932, +1.13545380302635754833003924951331763, +1.93542808444382243293468970486235343, +1.21651081793389127434668074168421625, +1.86953336354660793283941642058322908, +1.31777621009179353024104957124184880, +1.90643346554093254405348069740293542, +1.15113103785781455058950314369114006, +1.98144182487710094170244245631915545, +1.26495190446887138091289213291148089, +1.12925299909940069906345328738183887, +1.81450550745658352629618251565246580, +1.61392415973591123513655914261515535, +1.76031779675695306829723786864477051, +1.49435050637112215318560505471326467, +1.11634449402598295895491212441503429, +1.51102218112696507105413166700561563, +1.51480796678733210292731774216707758, +1.89385349201004087380731731787830380, +1.69685501116650615647935856605597940, +1.58185708133694720480351807351395487, +1.16391845164844245732150680254330227, +1.75046661300231890876025565455334709, +1.98629309884926480189145522126034783, +1.64398419704935459871098861912208921, +1.81760693360608224573325470053576584

398

399atad = getFFTI(getFFTF(data))

400atad

401+1.88736100427450636683038317227664542, +1.59252156099734705787551445992377543, +1.88314090947490587452804036092897828, +1.44698153549626379469795592156035665, +1.79919868967311949778544152489999109, +1.14485312648699593552770984827858438, +1.35689235769607890840869226409640416, +1.40591911561758017751980442858580834, +1.85790989630439721233838566719478001, +1.61446440013969741195227375435198564, +1.28348519655314974186759948265709486, +1.92682867741969713035416509953888951, +1.47122811847896011389868405770162557, +1.69168973718173404766905804539208684, +1.52733156618419883822611742200867289, +1.84597397126664572012674702984146626, +1.84994090985193417626174082484988797, +1.63108960810687176029552556525332937, +1.31842134798822198240801772191978408, +1.49689062198638057215910278680183736, +1.32256207237297367928481569228909423, +1.43934425361107907857531070690233879, +1.86187469485424038452541716124835968, +1.71067657647650326645550595422006281, +1.93050461876792932270736303918102849, +1.57667215217752795823054519751617777, +1.19114935486138511223948373917060942, +1.82041512769943594452257711986134218, +1.12671637022614855708948119157634394, +1.17731424685055823811796836520241668, +1.33690578512664712195773019186252385, +1.75319982662366546768747822458098487, +1.48090766250005853464961512407577384, +1.45278285918626403325164045620960956, +1.25934995677827376641554843375509105, +1.83396434163497546204662955532377643, +1.98370189721585033095870216428808154, +1.41749054586584955957897708366306908, +1.53009927494198598347735748336944099, +1.50551121853959406209723098151096947, +1.03353069671567435368992089943521060, +1.95113092062341342418273357283523011, +1.35374354428180272872741570939725226, +1.99528962995434272422037267024221276, +1.16372046919446722471547253218383535, +1.55408641194353932976955041314218806, +1.78048451586437551948436528892255935, +1.95805029109690875788832914965190307, +1.03838581985692511124122834344145642, +1.31527218240771059888299941254621867, +1.25340754179696127660151757581786485, +1.20783860926428581477837357324163141, +1.12019825762479615113440152454520826, +1.49228614372262874279859125255716864, +1.68116142270574062164082867139474031, +1.08383585576413237381264992097181387, +1.11189550443415907337694427186809579, +1.19956225574600167503631963642343780, +1.77680870252383378830228982657230051, +1.19984946139084687868734022246695925, +1.50145520483461099190306458518600561, +1.22470395569912881567696480094197049, +1.99314200530323982694425646119458873, +1.81770259523911383216202704567282527, +1.21252592387563144126635736342357118, +1.95764561328102901419002525243424226, +1.41060837653847730468920567268307171, +1.20523758276798010925593596855662848, +1.59447180523510220978028437472257457, +1.29102645772709903732044946492148062, +1.46817811547900135651928021635130932, +1.13545380302635754833003924951331724, +1.93542808444382243293468970486235401, +1.21651081793389127434668074168421586, +1.86953336354660793283941642058322850, +1.31777621009179353024104957124184880, +1.90643346554093254405348069740293599, +1.15113103785781455058950314369113987, +1.98144182487710094170244245631915564, +1.26495190446887138091289213291148070, +1.12925299909940069906345328738183887, +1.81450550745658352629618251565246561, +1.61392415973591123513655914261515516, +1.76031779675695306829723786864477051, +1.49435050637112215318560505471326447, +1.11634449402598295895491212441503391, +1.51102218112696507105413166700561525, +1.51480796678733210292731774216707738, +1.89385349201004087380731731787830380, +1.69685501116650615647935856605597940, +1.58185708133694720480351807351395410, +1.16391845164844245732150680254330207, +1.75046661300231890876025565455334728, +1.98629309884926480189145522126034860, +1.64398419704935459871098861912208921, +1.81760693360608224573325470053576642, -0.385185988877447170611195588516985464E-33, -0.577778983316170755916793382775478196E-33, -0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, -0.770371977754894341222391177033970927E-33, -0.115555796663234151183358676555095639E-32, -0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-33, +0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33, +0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34, +0.385185988877447170611195588516985464E-33, -0.674075480535532548569592279904724561E-33, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-33, -0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-33, -0.192592994438723585305597794258492732E-33, -0.770371977754894341222391177033970927E-33

402reltol = sqrt(epsilon(1._TKC))

403reltol

404+0.138777878078144567552953958511352539E-16

405isClose(data, atad(1:size(data)), reltol = reltol)

406T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

407call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

408

409lenData = getUnifRand(5, 100)

410lenData

411+76

412data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

413data

414(+1.16106176, +0.288710892), (+1.22892892, +0.607712924), (+1.14619684, +0.557121038E-1), (+1.29447341, +0.474364698), (+1.50121450, +0.285500705), (+1.56002426, +0.284756601), (+1.52866209, +0.308411717E-1), (+1.01787472, +0.132434070), (+1.24323165, +0.657158017), (+1.44886923, +0.641019344E-1), (+1.92160201, +0.873951912), (+1.99608135, +0.209710896), (+1.23591495, +0.868497729), (+1.85242653, +0.702091873), (+1.51701522, +0.933858991), (+1.69637656, +0.818973005), (+1.22568882, +0.504238307), (+1.14092970, +0.592588723), (+1.28653419, +0.102259517E-1), (+1.59071589, +0.699275851), (+1.19098580, +0.767662942), (+1.68402576, +0.171969712), (+1.75993013, +0.100768209E-1), (+1.74618506, +0.644230366), (+1.86968398, +0.985029042), (+1.31637001, +0.426477790E-1), (+1.03669178, +0.956134021), (+1.52722931, +0.505898178), (+1.24894583, +0.757825851), (+1.04489326, +0.917120039), (+1.46741211, +0.973913491), (+1.10709071, +0.660368800), (+1.78376114, +0.812538862E-1), (+1.79888308, +0.135971010), (+1.47331738, +0.149506867), (+1.04373121, +0.707283676), (+1.08393860, +0.689417183), (+1.70202351, +0.345686257), (+1.45181131, +0.976977587), (+1.70536113, +0.522279739E-1), (+1.78984487, +0.393067896), (+1.95566940, +0.773802578), (+1.57066262, +0.469182491), (+1.18744731, +0.247696936), (+1.69666660, +0.212298512), (+1.47766542, +0.766742349), (+1.68745744, +0.810867727), (+1.00142574, +0.191775024), (+1.90753841, +0.426841974), (+1.43473983, +0.275587738), (+1.67596650, +0.503390670), (+1.40241480, +0.485740721), (+1.96152556, +0.953801572), (+1.40404689, +0.214712739), (+1.61655724, +0.254964769), (+1.79714584, +0.690561593), (+1.68652296, +0.984334469), (+1.23581231, +0.463827670), (+1.45749354, +0.292038500), (+1.34246039, +0.509522259), (+1.41120946, +0.678276777), (+1.72987223, +0.297777474), (+1.40033531, +0.135603726), (+1.16199958, +0.862568498), (+1.48961210, +0.290754378), (+1.87553215, +0.464069068), (+1.88816404, +0.554102659), (+1.95024633, +0.783103704E-1), (+1.95236492, +0.129898965), (+1.46757782, +0.215810895), (+1.54356551, +0.574043691), (+1.95377636, +0.609458208), (+1.82218623, +0.376052380), (+1.87455750, +0.739004970), (+1.68647432, +0.716946959), (+1.72330689, +0.282687485)

415

416atad = getFFTI(getFFTF(data))

417atad

418(+1.16106176, +0.288710952), (+1.22892904, +0.607713103), (+1.14619660, +0.557123870E-1), (+1.29447317, +0.474364668), (+1.50121427, +0.285500675), (+1.56002426, +0.284756452), (+1.52866161, +0.308410227E-1), (+1.01787448, +0.132434115), (+1.24323177, +0.657158017), (+1.44886947, +0.641020834E-1), (+1.92160201, +0.873951972), (+1.99608111, +0.209711075), (+1.23591506, +0.868497729), (+1.85242665, +0.702092052), (+1.51701522, +0.933858991), (+1.69637644, +0.818972945), (+1.22568893, +0.504238367), (+1.14092958, +0.592588663), (+1.28653407, +0.102261603E-1), (+1.59071565, +0.699275792), (+1.19098580, +0.767662883), (+1.68402576, +0.171969831), (+1.75992990, +0.100767128E-1), (+1.74618483, +0.644230247), (+1.86968374, +0.985029042), (+1.31637001, +0.426478684E-1), (+1.03669167, +0.956133902), (+1.52722931, +0.505898356), (+1.24894595, +0.757825911), (+1.04489326, +0.917119861), (+1.46741199, +0.973913431), (+1.10709059, +0.660368860), (+1.78376114, +0.812537223E-1), (+1.79888296, +0.135970920), (+1.47331715, +0.149506718), (+1.04373145, +0.707283497), (+1.08393848, +0.689417124), (+1.70202351, +0.345686048), (+1.45181131, +0.976977229), (+1.70536101, +0.522277951E-1), (+1.78984499, +0.393067777), (+1.95566928, +0.773802519), (+1.57066250, +0.469182163), (+1.18744731, +0.247696817), (+1.69666648, +0.212298378), (+1.47766542, +0.766742170), (+1.68745744, +0.810867310), (+1.00142574, +0.191774905), (+1.90753818, +0.426841885), (+1.43473971, +0.275587708), (+1.67596626, +0.503390253), (+1.40241456, +0.485740542), (+1.96152544, +0.953801394), (+1.40404689, +0.214712650), (+1.61655712, +0.254964530), (+1.79714561, +0.690561175), (+1.68652272, +0.984334230), (+1.23581195, +0.463827491), (+1.45749354, +0.292038262), (+1.34246016, +0.509522021), (+1.41120934, +0.678276896), (+1.72987199, +0.297777593), (+1.40033519, +0.135603532), (+1.16199934, +0.862568498), (+1.48961210, +0.290754378), (+1.87553215, +0.464069039), (+1.88816381, +0.554102242), (+1.95024610, +0.783103406E-1), (+1.95236492, +0.129898906), (+1.46757793, +0.215810984), (+1.54356563, +0.574043512), (+1.95377636, +0.609457970), (+1.82218599, +0.376052499), (+1.87455726, +0.739005089), (+1.68647432, +0.716946781), (+1.72330666, +0.282687455), (+0.00000000, +0.149011612E-6), (-0.119209290E-6, -0.894069672E-7), (+0.298023224E-6, +0.00000000), (+0.119209290E-6, +0.298023224E-7), (+0.596046448E-7, -0.894069672E-7), (-0.119209290E-6, -0.894069672E-7), (+0.238418579E-6, -0.208616257E-6), (-0.596046448E-7, +0.596046448E-7), (+0.119209290E-6, +0.119209290E-6), (+0.00000000, -0.670552254E-7), (+0.178813934E-6, +0.707805157E-7), (+0.596046448E-7, +0.894069672E-7), (-0.596046448E-7, -0.596046448E-7), (-0.238418579E-6, -0.119209290E-6), (+0.596046448E-7, -0.178813934E-6), (-0.119209290E-6, -0.119209290E-6), (+0.596046448E-7, -0.596046448E-7), (-0.596046448E-7, +0.298023224E-7), (+0.596046448E-7, -0.298023224E-7), (+0.00000000, +0.596046448E-7), (-0.119209290E-6, +0.182539225E-6), (-0.596046448E-7, +0.149011612E-6), (+0.596046448E-7, +0.216066837E-6), (+0.00000000, +0.208616257E-6), (-0.119209290E-6, +0.268220901E-6), (-0.596046448E-7, +0.357627869E-6), (-0.178813934E-6, +0.387430191E-6), (+0.119209290E-6, +0.298023224E-6), (+0.00000000, +0.104308128E-6), (+0.119209290E-6, +0.894069672E-7), (+0.178813934E-6, +0.894069672E-7), (+0.00000000, +0.298023224E-7), (+0.119209290E-6, +0.163912773E-6), (+0.00000000, +0.178813934E-6), (+0.119209290E-6, +0.268220901E-6), (+0.00000000, +0.149011612E-6), (+0.178813934E-6, +0.894069672E-7), (+0.119209290E-6, +0.149011612E-6), (+0.596046448E-7, +0.357627869E-6), (+0.596046448E-7, +0.253319740E-6), (+0.596046448E-7, +0.238418579E-6), (+0.119209290E-6, +0.126659870E-6), (+0.178813934E-6, +0.253319740E-6), (+0.596046448E-7, +0.298023224E-6), (+0.178813934E-6, +0.298023224E-7), (+0.00000000, -0.745058060E-7), (+0.178813934E-6, +0.134110451E-6), (+0.119209290E-6, -0.596046448E-7), (+0.178813934E-6, +0.00000000), (+0.298023224E-6, +0.447034836E-7), (+0.00000000, +0.312924385E-6), (+0.00000000, +0.238418579E-6)

419reltol = sqrt(epsilon(1._TKC))

420reltol

421+0.345266977E-3

422isClose(data, atad(1:size(data)), reltol = reltol)

423T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

424call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

425

426lenData = getUnifRand(5, 100)

427lenData

428+41

429data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

430data

431(+1.5243002934468008, +0.35848358112959655), (+1.4092240761326047, +0.44034583824808105), (+1.5680355629242770, +0.22071379363808041), (+1.5872911278653050, +0.78134201900914968), (+1.7534966126519405, +0.63582798789710071E-1), (+1.1629544240364642, +0.55440263253865485), (+1.1581348162624310, +0.74810461976015830), (+1.6363907044235377, +0.51179873588564206), (+1.8975782717241318, +0.80582805045165062), (+1.6606031768295493, +0.12424502221239542), (+1.2851289386281497, +0.97375567327057777), (+1.6637341345064225, +0.23001238756448772E-1), (+1.0939929269507576, +0.35010503904264267), (+1.9672125809195444, +0.27551672082349510), (+1.9544137999986306, +0.42711969461662758), (+1.1947205994833898, +0.65450547613231647), (+1.9320510332544660, +0.78863956295917403), (+1.3868404619687582, +0.96915963388635862), (+1.7057870432817830, +0.29071198942542287E-1), (+1.6791159487632079, +0.60073066353383420), (+1.3175470638479740, +0.30857510039673341), (+1.7814495963184243, +0.37293341750981446), (+1.3145818771103877, +0.78511962844332972), (+1.8199398764406345, +0.72299199753521060E-1), (+1.8564961463449297, +0.17602196294407380), (+1.9419757344501327, +0.54171959685689353), (+1.2766779055076725, +0.98117890601227875), (+1.6622118174891720, +0.33560578954032938), (+1.1894925584468443, +0.66160316083124449), (+1.9591545790455949, +0.85052948402615502), (+1.6530998906684564, +0.69031597235392839), (+1.1922547937933130, +0.88271639144109570), (+1.8525455577143728, +0.10117677564500416), (+1.6000119088301994, +0.19607190901250815), (+1.7089259902782472, +0.14730931249838974), (+1.9986722319592998, +0.29065589672236047), (+1.7248285167379798, +0.26084199779973938), (+1.1474227996685662, +0.10342203174358822), (+1.7480607147610954, +0.82617273411670089), (+1.1061643439714883, +0.61703827565184233), (+1.3474794748491696, +0.33641649790541384)

432

433atad = getFFTI(getFFTF(data))

434atad

435(+1.5243002934468008, +0.35848358112959644), (+1.4092240761326047, +0.44034583824808121), (+1.5680355629242768, +0.22071379363808064), (+1.5872911278653048, +0.78134201900914990), (+1.7534966126519405, +0.63582798789710057E-1), (+1.1629544240364642, +0.55440263253865496), (+1.1581348162624308, +0.74810461976015818), (+1.6363907044235375, +0.51179873588564206), (+1.8975782717241316, +0.80582805045165062), (+1.6606031768295493, +0.12424502221239571), (+1.2851289386281497, +0.97375567327057788), (+1.6637341345064218, +0.23001238756449077E-1), (+1.0939929269507576, +0.35010503904264301), (+1.9672125809195442, +0.27551672082349554), (+1.9544137999986304, +0.42711969461662763), (+1.1947205994833889, +0.65450547613231658), (+1.9320510332544663, +0.78863956295917381), (+1.3868404619687587, +0.96915963388635840), (+1.7057870432817828, +0.29071198942541787E-1), (+1.6791159487632079, +0.60073066353383398), (+1.3175470638479743, +0.30857510039673319), (+1.7814495963184243, +0.37293341750981440), (+1.3145818771103879, +0.78511962844332928), (+1.8199398764406343, +0.72299199753520949E-1), (+1.8564961463449299, +0.17602196294407366), (+1.9419757344501325, +0.54171959685689330), (+1.2766779055076727, +0.98117890601227820), (+1.6622118174891711, +0.33560578954032871), (+1.1894925584468443, +0.66160316083124426), (+1.9591545790455946, +0.85052948402615458), (+1.6530998906684564, +0.69031597235392761), (+1.1922547937933126, +0.88271639144109515), (+1.8525455577143730, +0.10117677564500407), (+1.6000119088301994, +0.19607190901250821), (+1.7089259902782474, +0.14730931249838952), (+1.9986722319592996, +0.29065589672236036), (+1.7248285167379795, +0.26084199779973954), (+1.1474227996685658, +0.10342203174358808), (+1.7480607147610956, +0.82617273411670045), (+1.1061643439714881, +0.61703827565184188), (+1.3474794748491694, +0.33641649790541361), (-0.33306690738754696E-15, -0.48572257327350599E-15), (+0.77715611723760958E-15, -0.11102230246251565E-15), (+0.33306690738754696E-15, -0.36082248300317588E-15), (+0.11102230246251565E-15, -0.11102230246251565E-15), (-0.22204460492503131E-15, -0.41633363423443370E-15), (+0.66613381477509392E-15, +0.16653345369377348E-15), (+0.22204460492503131E-15, -0.11102230246251565E-15), (-0.11102230246251565E-15, +0.22204460492503131E-15), (-0.11102230246251565E-15, +0.55511151231257827E-16), (+0.22204460492503131E-15, +0.38857805861880479E-15), (+0.11102230246251565E-15, +0.11102230246251565E-15), (+0.0000000000000000, -0.16653345369377348E-15), (-0.44408920985006262E-15, -0.55511151231257827E-16), (+0.11102230246251565E-15, +0.22204460492503131E-15), (-0.22204460492503131E-15, +0.22204460492503131E-15), (+0.11102230246251565E-15, +0.83266726846886741E-16), (-0.33306690738754696E-15, +0.16653345369377348E-15), (+0.33306690738754696E-15, +0.61062266354383610E-15), (+0.11102230246251565E-15, +0.49960036108132044E-15), (+0.0000000000000000, +0.16653345369377348E-15), (-0.22204460492503131E-15, +0.33306690738754696E-15), (+0.11102230246251565E-15, +0.83266726846886741E-15), (-0.22204460492503131E-15, +0.77715611723760958E-15)

436reltol = sqrt(epsilon(1._TKC))

437reltol

438+0.14901161193847656E-7

439isClose(data, atad(1:size(data)), reltol = reltol)

440T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

441call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

442

443lenData = getUnifRand(5, 100)

444lenData

445+99

446data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

447data

448(+1.37862336593421424402517296089228375, +0.349504333658209291446791904040413192), (+1.52190814661608052832892417761345923, +0.344277677946685663898964517893508590), (+1.83549968205781638639843402503789069, +0.218973012542825142743458746465246839E-2), (+1.26214516414289196934682794389043454, +0.109490789684029771356236291776046687), (+1.20062143513956426312605506205698740, +0.125188560944317288721565001537952059), (+1.80141182613666464497360526663803092, +0.267971661151129306741885469469244469), (+1.11311441473325542672300695154972798, +0.461824703910385583530848197467253388E-1), (+1.79469109942603661319858087395399432, +0.903529189680833533885494762050667535), (+1.17292683885831773995054097170079152, +0.725258168191630834694114822469589684), (+1.56161816528260547794843444856232681, +0.172516212846489593073421819759733599), (+1.46930771752698007520133855854234246, +0.580717590090077435099589563577864984), (+1.31187159121925934823798424206027773, +0.542384611139943931716956174206812159), (+1.28861257686147224008682917695039092, +0.698901336439229584041227602395327831), (+1.11625930335974386213010557605008240, +0.355917243293324465132335316230749289), (+1.85306591494409845612042489633867737, +0.654433403077040163118515168169020675), (+1.42086211579491664277397533899851940, +0.990766917339365389637595491402438686), (+1.16618973793678451792598572479431407, +0.301166109478829801934859614406002141), (+1.75083822263594868558023245899748294, +0.344517316044719801783713196703594170), (+1.79427982272013019031624678415951453, +0.533387013400948107548653066500230304), (+1.46491903064151022852995082180033551, +0.164880696406602574324029128253101425), (+1.05316301364559016544291794709332761, +0.286988719494907657986320571592728471), (+1.19669840148203922785816777840795907, +0.463826425635196701738279467510890116), (+1.60846675992852277499488617646470486, +0.168491416434372564930596485132845499), (+1.63121503212948892548461057485845971, +0.575449247222076553801660671126253102), (+1.46264794562644924510869357471237769, +0.577244843651093705953971559469639527E-1), (+1.60102440954572806952601644530681438, +0.138502683686284498795227447640507893), (+1.32826245840418758400342450643682202, +0.205660135195425013731307921353346380), (+1.67215737890627578822112729055663359, +0.338096877582659822816949084321268047), (+1.12353161787733436235700576682389616, +0.960063792853535121590634664821380626), (+1.75303623433481735408500465124400486, +0.358073660376799440482862315760915154), (+1.23052901270059521422819810736449158, +0.782448554784095413655347876447222037), (+1.16373929166453105492517556352535771, +0.682268631210701000099466011150826332E-2), (+1.19897915074457177874426708764469922, +0.390549515557423425995533415690639220), (+1.79886424309377740051468970918260914, +0.604397427553138197545221954925595434), (+1.38731935312124889597729387442640293, +0.862219017277430012412540947179431283), (+1.50169168028993480251956326397586899, +0.869592850079926030667437977248641138), (+1.90138187301236262194131006353239295, +0.399344279506719152506072005976780716), (+1.92465809005934453140852302630526907, +0.387032824366949349471828171561237867), (+1.59961638962527441574338889520851535, +0.884552081862632307017931552281562869E-1), (+1.99820466769487281537961028204700952, +0.851501198675009456822940916214125176), (+1.72786906550908901772248330223094093, +0.590482965702039775921444290193779496), (+1.60708863444074376366713500839457536, +0.639128781675343266695048433788355362), (+1.61347369373843685428843777207793173, +0.559447426993867170586411169807698843E-1), (+1.55999533710543926376835968054589919, +0.340222915346196989873142712289457197), (+1.54276186472729331883675808723581084, +0.440473732806594830453433132900592288), (+1.39786362737916665923389530724094502, +0.249594410331731589724873833547192005), (+1.49308706015578476624681035449287046, +0.412675449688118875899807375271209827), (+1.73728103227282516392926194486098676, +0.787001632353985056097083383890198857), (+1.12998673239370523005679195952031834, +0.787639465705825335768182570989609494E-1), (+1.62473777678651031670849086395714639, +0.254078596905520054568965535278967050), (+1.39699483614826688224240013438403443, +0.283659429699297309627080029390917891), (+1.90512386488866683162940951019645642, +0.101001013091592848742760174625573080), (+1.78733179781926279346854037965571555, +0.212459041838568949113818207059980522), (+1.47198907717830760435438189691794827, +0.185705239534440921498287390338034904), (+1.04387813136100354804012519179377094, +0.693795523352362242168600496467841257E-1), (+1.53679483716161194744530524417757865, +0.150938353424796521259568746202600733E-1), (+1.85316514980462818287658701591068528, +0.419286449794911295551639374168663961), (+1.44338813777836601511977257482064666, +0.990675872377605058473355679459106939), (+1.21940715090000176949262162803235928, +0.757327517279131917618679964134946265), (+1.11157716377526931492076122834762338, +0.835793905285702275255872952482292323), (+1.46359179672786476644219103195222160, +0.613855735690027733045196019817191067), (+1.65202379922958108062798719772848112, +0.906189753894405163231674923645647969), (+1.41094387329813881684458631448786679, +0.445746467282804888633627973028092797), (+1.69585290027455128583069203012274264, +0.159408817756084744360113804557434693), (+1.49415791877987113445180938789192737, +0.937392514024344267352339635369693140E-1), (+1.59787417376029281730618205678272837, +0.271859633495402671937150283147618035), (+1.08648756612031036736048964430705046, +0.478943132845181147655069198387131525), (+1.62182058448058408175892955627611405, +0.221584967551767322734562314932677991), (+1.61013994102277374837486684224365948, +0.301824258042017040863030022319783743), (+1.33506461598113226965702622213892080, +0.166380460704804197816119320423221567), (+1.53903984705886549038226554771236079, +0.653640335446275926529537377993096475), (+1.01667395710707051829794460645281300, +0.294794951436052911511618386166073328), (+1.84630727502923341904446965706988199, +0.452030750825554457907182412656425637), (+1.58401918962206854925336450146489666, +0.522581855136252397099554367738246697), (+1.16631170528357295251588227741159405, +0.107201765762633649409643266937497139), (+1.02009517375743697659712115250661962, +0.940650399962365534306395050504789641), (+1.58647421214068302821274558748717907, +0.546350149137126655045735935080627112), (+1.70068780417852313113941512671393522, +0.581052692279179069495298993731813045), (+1.97155207739150859837660953394143289, +0.493386648314396175643452542019066847), (+1.15837399961937780860532481119724883, +0.584024571204033258656528775035389651), (+1.69459767856488482976936138375754750, +0.573215836944739918381543498169236104), (+1.03074933060200338023630699618785854, +0.913480348679591231876507784077350867), (+1.54763968018759740337760363025096538, +0.918490250400596659071076477548560581), (+1.16944656744541464230370067548344371, +0.829130053571103241361516126215369507), (+1.36229693213818036527912381121702494, +0.767737020669440248293099714452465231), (+1.48738800243773860627048021487196209, +0.369372555209530064323221499050600041), (+1.72583851915088501392809011744787354, +0.951772259471135507641872338858103750), (+1.56793189887134072369890403413134410, +0.632183025643789999509341413645674659), (+1.43157708133593778112385875144842184, +0.621304573602388604981656339170579862), (+1.73723650144425265934561954636990022, +0.457607909452087625609815453906473521), (+1.72087982556183686078245261523150995, +0.222883188303249987028817563763568847), (+1.38809508140793940474428195851086516, +0.248989987661840283774397413953428254), (+1.21499096006611021777933278610664527, +0.526474276138389441740946379455959099), (+1.21878443872674407944766523868961440, +0.288444381635124420504402722977635893), (+1.08590847848877591042754636313580931, +0.406601789718428764971085604778297128), (+1.18559831659269504530591532941752554, +0.920778943309698092384587958532828026), (+1.92153874674526785297916640049255778, +0.276823464268140668556335978383593146E-1), (+1.51496936014053680239441920657720080, +0.282400369143936782011473709292428503), (+1.74010320390722759597597691178010906, +0.618215086363055272205086069132851579)

449

450atad = getFFTI(getFFTF(data))

451atad

452(+1.37862336593421424402517296089228375, +0.349504333658209291446791904040413192), (+1.52190814661608052832892417761345961, +0.344277677946685663898964517893508253), (+1.83549968205781638639843402503789088, +0.218973012542825142743458746465258876E-2), (+1.26214516414289196934682794389043474, +0.109490789684029771356236291776046374), (+1.20062143513956426312605506205698759, +0.125188560944317288721565001537952083), (+1.80141182613666464497360526663803131, +0.267971661151129306741885469469244132), (+1.11311441473325542672300695154972798, +0.461824703910385583530848197467252425E-1), (+1.79469109942603661319858087395399432, +0.903529189680833533885494762050667439), (+1.17292683885831773995054097170079171, +0.725258168191630834694114822469589684), (+1.56161816528260547794843444856232739, +0.172516212846489593073421819759733334), (+1.46930771752698007520133855854234266, +0.580717590090077435099589563577865176), (+1.31187159121925934823798424206027811, +0.542384611139943931716956174206812063), (+1.28861257686147224008682917695039131, +0.698901336439229584041227602395327928), (+1.11625930335974386213010557605008279, +0.355917243293324465132335316230749000), (+1.85306591494409845612042489633867775, +0.654433403077040163118515168169020964), (+1.42086211579491664277397533899851979, +0.990766917339365389637595491402438975), (+1.16618973793678451792598572479431446, +0.301166109478829801934859614406002141), (+1.75083822263594868558023245899748313, +0.344517316044719801783713196703594170), (+1.79427982272013019031624678415951492, +0.533387013400948107548653066500230400), (+1.46491903064151022852995082180033589, +0.164880696406602574324029128253101473), (+1.05316301364559016544291794709332761, +0.286988719494907657986320571592728471), (+1.19669840148203922785816777840795907, +0.463826425635196701738279467510890405), (+1.60846675992852277499488617646470486, +0.168491416434372564930596485132845643), (+1.63121503212948892548461057485845990, +0.575449247222076553801660671126253295), (+1.46264794562644924510869357471237788, +0.577244843651093705953971559469639046E-1), (+1.60102440954572806952601644530681458, +0.138502683686284498795227447640507965), (+1.32826245840418758400342450643682241, +0.205660135195425013731307921353346452), (+1.67215737890627578822112729055663398, +0.338096877582659822816949084321268240), (+1.12353161787733436235700576682389596, +0.960063792853535121590634664821380530), (+1.75303623433481735408500465124400505, +0.358073660376799440482862315760915009), (+1.23052901270059521422819810736449158, +0.782448554784095413655347876447221748), (+1.16373929166453105492517556352535771, +0.682268631210701000099466011150821517E-2), (+1.19897915074457177874426708764469902, +0.390549515557423425995533415690639220), (+1.79886424309377740051468970918260953, +0.604397427553138197545221954925595434), (+1.38731935312124889597729387442640313, +0.862219017277430012412540947179431187), (+1.50169168028993480251956326397586957, +0.869592850079926030667437977248641523), (+1.90138187301236262194131006353239334, +0.399344279506719152506072005976780764), (+1.92465809005934453140852302630526964, +0.387032824366949349471828171561237674), (+1.59961638962527441574338889520851535, +0.884552081862632307017931552281563592E-1), (+1.99820466769487281537961028204701029, +0.851501198675009456822940916214125176), (+1.72786906550908901772248330223094132, +0.590482965702039775921444290193779689), (+1.60708863444074376366713500839457575, +0.639128781675343266695048433788355844), (+1.61347369373843685428843777207793212, +0.559447426993867170586411169807700769E-1), (+1.55999533710543926376835968054589958, +0.340222915346196989873142712289457727), (+1.54276186472729331883675808723581123, +0.440473732806594830453433132900592336), (+1.39786362737916665923389530724094579, +0.249594410331731589724873833547192029), (+1.49308706015578476624681035449287065, +0.412675449688118875899807375271209971), (+1.73728103227282516392926194486098734, +0.787001632353985056097083383890199243), (+1.12998673239370523005679195952031853, +0.787639465705825335768182570989609735E-1), (+1.62473777678651031670849086395714639, +0.254078596905520054568965535278967050), (+1.39699483614826688224240013438403463, +0.283659429699297309627080029390917988), (+1.90512386488866683162940951019645700, +0.101001013091592848742760174625573007), (+1.78733179781926279346854037965571593, +0.212459041838568949113818207059980498), (+1.47198907717830760435438189691794885, +0.185705239534440921498287390338034808), (+1.04387813136100354804012519179377094, +0.693795523352362242168600496467841739E-1), (+1.53679483716161194744530524417757865, +0.150938353424796521259568746202601214E-1), (+1.85316514980462818287658701591068586, +0.419286449794911295551639374168664057), (+1.44338813777836601511977257482064685, +0.990675872377605058473355679459107517), (+1.21940715090000176949262162803235966, +0.757327517279131917618679964134946554), (+1.11157716377526931492076122834762377, +0.835793905285702275255872952482292708), (+1.46359179672786476644219103195222198, +0.613855735690027733045196019817191163), (+1.65202379922958108062798719772848150, +0.906189753894405163231674923645648258), (+1.41094387329813881684458631448786717, +0.445746467282804888633627973028092846), (+1.69585290027455128583069203012274264, +0.159408817756084744360113804557434693), (+1.49415791877987113445180938789192737, +0.937392514024344267352339635369691936E-1), (+1.59787417376029281730618205678272876, +0.271859633495402671937150283147617987), (+1.08648756612031036736048964430705066, +0.478943132845181147655069198387131622), (+1.62182058448058408175892955627611425, +0.221584967551767322734562314932678015), (+1.61013994102277374837486684224365967, +0.301824258042017040863030022319783454), (+1.33506461598113226965702622213892118, +0.166380460704804197816119320423221567), (+1.53903984705886549038226554771236079, +0.653640335446275926529537377993096571), (+1.01667395710707051829794460645281300, +0.294794951436052911511618386166073472), (+1.84630727502923341904446965706988218, +0.452030750825554457907182412656425637), (+1.58401918962206854925336450146489666, +0.522581855136252397099554367738246889), (+1.16631170528357295251588227741159386, +0.107201765762633649409643266937497018), (+1.02009517375743697659712115250661962, +0.940650399962365534306395050504789930), (+1.58647421214068302821274558748717945, +0.546350149137126655045735935080627015), (+1.70068780417852313113941512671393599, +0.581052692279179069495298993731813141), (+1.97155207739150859837660953394143308, +0.493386648314396175643452542019066943), (+1.15837399961937780860532481119724903, +0.584024571204033258656528775035389843), (+1.69459767856488482976936138375754769, +0.573215836944739918381543498169236008), (+1.03074933060200338023630699618785874, +0.913480348679591231876507784077350963), (+1.54763968018759740337760363025096577, +0.918490250400596659071076477548560581), (+1.16944656744541464230370067548344391, +0.829130053571103241361516126215369603), (+1.36229693213818036527912381121702532, +0.767737020669440248293099714452465135), (+1.48738800243773860627048021487196247, +0.369372555209530064323221499050599944), (+1.72583851915088501392809011744787412, +0.951772259471135507641872338858103750), (+1.56793189887134072369890403413134429, +0.632183025643789999509341413645674370), (+1.43157708133593778112385875144842203, +0.621304573602388604981656339170579959), (+1.73723650144425265934561954636990003, +0.457607909452087625609815453906473810), (+1.72087982556183686078245261523150976, +0.222883188303249987028817563763568967), (+1.38809508140793940474428195851086516, +0.248989987661840283774397413953428350), (+1.21499096006611021777933278610664546, +0.526474276138389441740946379455959196), (+1.21878443872674407944766523868961460, +0.288444381635124420504402722977636037), (+1.08590847848877591042754636313580931, +0.406601789718428764971085604778297369), (+1.18559831659269504530591532941752554, +0.920778943309698092384587958532828411), (+1.92153874674526785297916640049255778, +0.276823464268140668556335978383592905E-1), (+1.51496936014053680239441920657720100, +0.282400369143936782011473709292428744), (+1.74010320390722759597597691178010926, +0.618215086363055272205086069132851675), (-0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000), (+0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34), (-0.962964972193617926527988971292463659E-34, +0.337037740267766274284796139952362281E-33), (-0.192592994438723585305597794258492732E-33, +0.120370621524202240815998621411557957E-33), (-0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33), (-0.288889491658085377958396691387739098E-33, -0.433334237487128066937595037081608647E-33), (-0.577778983316170755916793382775478196E-33, -0.144444745829042688979198345693869549E-33), (-0.674075480535532548569592279904724561E-33, -0.962964972193617926527988971292463659E-34), (-0.385185988877447170611195588516985464E-33, -0.337037740267766274284796139952362281E-33), (-0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (-0.288889491658085377958396691387739098E-33, +0.240741243048404481631997242823115915E-34), (-0.577778983316170755916793382775478196E-33, -0.144444745829042688979198345693869549E-33), (-0.577778983316170755916793382775478196E-33, -0.385185988877447170611195588516985464E-33), (-0.192592994438723585305597794258492732E-33, -0.722223729145213444895991728469347744E-34), (-0.577778983316170755916793382775478196E-33, +0.00000000000000000000000000000000000), (-0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, +0.240741243048404481631997242823115915E-34), (-0.288889491658085377958396691387739098E-33, +0.722223729145213444895991728469347744E-34), (-0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000), (+0.00000000000000000000000000000000000, +0.144444745829042688979198345693869549E-33), (-0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-34), (-0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33), (-0.385185988877447170611195588516985464E-33, -0.625927231925851652243192831340101379E-33), (-0.288889491658085377958396691387739098E-33, -0.240741243048404481631997242823115915E-33), (+0.192592994438723585305597794258492732E-33, -0.529630734706489859590393934210855013E-33), (-0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (-0.288889491658085377958396691387739098E-33, -0.385185988877447170611195588516985464E-33), (+0.00000000000000000000000000000000000, -0.144444745829042688979198345693869549E-33), (-0.481482486096808963263994485646231830E-33, -0.433334237487128066937595037081608647E-33)

453reltol = sqrt(epsilon(1._TKC))

454reltol

455+0.138777878078144567552953958511352539E-16

456isClose(data, atad(1:size(data)), reltol = reltol)

457T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

458call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

459

460lenData = getUnifRand(5, 100)

461lenData

462+39

463data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

464data

465+1.76061893, +1.18810797, +1.71845973, +1.27800536, +1.89892125, +1.06809843, +1.48297632, +1.85148382, +1.14207518, +1.53486025, +1.26813531, +1.17628098, +1.53819847, +1.87039888, +1.37920785, +1.83062279, +1.60369456, +1.08302665, +1.89740372, +1.15144515, +1.00008941, +1.86059523, +1.66262186, +1.28205156, +1.21625662, +1.80624557, +1.50458503, +1.99991083, +1.00295568, +1.41512227, +1.98970103, +1.67985642, +1.53252888, +1.78695178, +1.74486697, +1.49352348, +1.83481598, +1.77276599, +1.16645741

466

467atad = getFFTI(getFFTF(data))

468atad

469+1.76061904, +1.18810773, +1.71845961, +1.27800512, +1.89892113, +1.06809843, +1.48297632, +1.85148358, +1.14207506, +1.53486013, +1.26813531, +1.17628098, +1.53819823, +1.87039876, +1.37920773, +1.83062255, +1.60369480, +1.08302653, +1.89740372, +1.15144503, +1.00008929, +1.86059523, +1.66262174, +1.28205156, +1.21625674, +1.80624557, +1.50458503, +1.99991071, +1.00295568, +1.41512227, +1.98970091, +1.67985630, +1.53252900, +1.78695202, +1.74486685, +1.49352336, +1.83481586, +1.77276599, +1.16645730, +0.119209290E-6, +0.178813934E-6, +0.238418579E-6, +0.238418579E-6, +0.119209290E-6, +0.357627869E-6, +0.596046448E-7, +0.119209290E-6, +0.119209290E-6, +0.00000000, +0.119209290E-6, -0.596046448E-7, +0.119209290E-6, -0.119209290E-6, +0.298023224E-6, +0.178813934E-6, -0.596046448E-7, +0.00000000, +0.596046448E-7, +0.00000000, +0.00000000, +0.119209290E-6, +0.596046448E-7, +0.119209290E-6, -0.178813934E-6

470reltol = sqrt(epsilon(1._TKC))

471reltol

472+0.345266977E-3

473isClose(data, atad(1:size(data)), reltol = reltol)

474T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

475call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

476

477lenData = getUnifRand(5, 100)

478lenData

479+25

480data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

481data

482+1.0999208015790032, +1.5175619839384866, +1.9158599884050227, +1.8070393613774636, +1.2702042995679723, +1.5647933507179521, +1.3900488695075033, +1.8996819044018363, +1.6760196941756025, +1.8265760099583845, +1.4902415488326262, +1.0858589372243355, +1.0855208110602983, +1.5634697963805260, +1.3453517275775209, +1.8903729639074711, +1.8161811309970568, +1.7814843341344662, +1.5208186369055094, +1.2570825975263737, +1.9009460174277288, +1.4221513277382103, +1.1253674701670051, +1.2232147366140131, +1.4497718922912008

483

484atad = getFFTI(getFFTF(data))

485atad

486+1.0999208015790032, +1.5175619839384864, +1.9158599884050225, +1.8070393613774638, +1.2702042995679721, +1.5647933507179523, +1.3900488695075028, +1.8996819044018360, +1.6760196941756027, +1.8265760099583845, +1.4902415488326264, +1.0858589372243355, +1.0855208110602987, +1.5634697963805260, +1.3453517275775213, +1.8903729639074709, +1.8161811309970570, +1.7814843341344662, +1.5208186369055094, +1.2570825975263735, +1.9009460174277291, +1.4221513277382103, +1.1253674701670049, +1.2232147366140131, +1.4497718922912008, +0.0000000000000000, +0.22204460492503131E-15, +0.0000000000000000, +0.33306690738754696E-15, +0.55511151231257827E-15, +0.55511151231257827E-15, +0.33306690738754696E-15

487reltol = sqrt(epsilon(1._TKC))

488reltol

489+0.14901161193847656E-7

490isClose(data, atad(1:size(data)), reltol = reltol)

491T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

492call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

493

494lenData = getUnifRand(5, 100)

495lenData

496+8

497data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

498data

499+1.20780530391305229342466202641714121, +1.00316971731873328746190799660947376, +1.61986847546380182689618583645321465, +1.52109733471373986856557392222085805, +1.80641468851864095677027545317033584, +1.18140095149548062734890134289761751, +1.34399104184356904493770416943076533, +1.92953539203959964874122256227512258

500

501atad = getFFTI(getFFTF(data))

502atad

503+1.20780530391305229342466202641714121, +1.00316971731873328746190799660947395, +1.61986847546380182689618583645321465, +1.52109733471373986856557392222085786, +1.80641468851864095677027545317033584, +1.18140095149548062734890134289761751, +1.34399104184356904493770416943076533, +1.92953539203959964874122256227512239

504reltol = sqrt(epsilon(1._TKC))

505reltol

506+0.138777878078144567552953958511352539E-16

507isClose(data, atad(1:size(data)), reltol = reltol)

508T, T, T, T, T, T, T, T

509call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

510

511

Test:: test_pm_fftnr

Final Remarks ⛓

If you believe this algorithm or its documentation can be improved, we appreciate your contribution and help to edit this page's documentation and source file on GitHub.
For details on the naming abbreviations, see this page.
For details on the naming conventions, see this page.
This software is distributed under the MIT license with additional terms outlined below.

If you use any parts or concepts from this library to any extent, you must acknowledge the usage by citing the relevant publications of the ParaMonte library.
If you regenerate any parts/ideas from this library in a programming environment other than those currently supported by this ParaMonte library, you must also ask the end users to cite this original ParaMonte library.

Copyright: Computational Data Science Lab

Author:: Fatemeh Bagheri, Tuesday 11:34 PM, August 10, 2021, Dallas, TX

Definition at line 250 of file pm_fftnr.F90.

The documentation for this interface was generated from the following file:

/home/amir/git/paramonte/src/fortran/main/pm_fftnr.F90